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TITLE SMDS2t'REV C« * STORAGE MODULE T&D* FEB 18* 1978 
***************** ******************************* ************************ 
* 

* 

* 

* 

* description; 

* 

* 

* 

* 


THIS TDD PROGRAM TESTS THE MASS STORAGE DEVICES LISTED BELOW 
ON A LEVEL 6 SYSTEM, IT ASSUMES THAT PREVIOUS TESTS HAVE 
INDICATED THE FAILURE IS LOCATED IN THE MSD. THe TEST IS 
DESIGNED TO RUN SEQUENTIALLY FROM START TO FINISH OR UNTIL 
A FAlLORt IS DETECTED. 

THE SUBSYSTEM ITEMS SUPPORTED BY THIS PROGRAM ARE: 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* REVISION HISTORY; 


MSU9101 40 MB STORAGE MODULE DR 
MSU9102 60 MB STORAGE MODULE DR 
MSU91Q3 ISO Mb STORAGE MODULE DR 
MSU9104 300 MB STORAGE MODULE DR 
MSU9105 40 MB STORAGE MODULE DR 
MSU9106 60 MB STORAGE MODULE DR 


VE 

VE 

VE 

VE 

VE(2ND UNIT) 
VE(2ND UNIT) 


REV 

A 

b 

C 


DATE 

NOV 

dec 

feb 


77 

77 

78 


PRERELEASE(SMTDS1) 
ORIGINAL RELEASE 


************************************************************************ 
* 

* THIS DOCUMENT AND THE INFORMATION CONTAINED 

* THEREIN IS CONFIDENTIAL AND PROPRIETARY TO AND Thf 

* EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION 

* SYSTEMS INC. IT IS MADE AVAILABLE ONLY TO HONEy- 

* WELL aOTHORUED RECIPIENTS FOR THEIR USE SGlELY IN 

* THE MAINTENANCE AND OPERATION OF HONEYWELt 

* PRODUCTS. THIS DOCUMENT AND INFORMATION MUST BF 

* MAINTAINED IN STRICTEST CONFIDENCE? IT MUoT Not 

* BE REPRODUCED IN WHOLE OR IN PART? AND IT SHAli 

* NUT BE DISCLUSED TO ANY OTHER PARTY WITHOUT Thf 

* PRIuR WRITTEN CONSENT OF HONEYWELL. 

* 

***************************x******************************************** 
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/a********************************************************************** 

* 

* PROGRAM PREPARATION; 

# 

* 

* 

* 

# 

* 


THE ROOT SOURCE OF THIS PROGRAM* AFTER THE ADDITION OF APPROPRIATE 
TITLE AND ENU STATEMENTS, WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 
TO CREATE EITHER SHORT OR LONG ADDRESS FORM (SAF OR LAF) OBJECT TEXT 
AND LISTING, THE OBJECT TEXT WAS FURTHER PROCESSED BY THE HOST RESIDENT 
LINKER USING THE APPROPRIATE CONSOLE ZV$LIB LIBRARY TO CREATE A PUNCH 
SEGMENT CONTAINING AN EXECUTABLE MODULE, THl ASSEMBLY LISTING WAS 
AUGMENTED WITH CROSS REFERENCE DATA PLUS THl LOAd MAP FROM THE LINKER 
TO CREATE A LIST SEGMENT. 


* 

* 

* 

* 

* 

* 

* 

* 

# 

* program distribution; 

* 

the elementary items submitted to The 


ROOT 

NAMt „ SMDX2 
DOCUMENT 60134667-002 


SAF 

SMDS2 

60134668-002 


LAF 

SMDL2 

60134669-002 


__ _ _ . _ T6V PkQGRAm distribute „ 

WERE THE EXECUTABLE LINKED IMAGES ON DISKETTE OF SMDS2 AND 5MDL2 
AND MAGNETIC —-— * .. - 


ON CENTER 


TAPE IMAGES OF THE AUGMENTED LISTINGS. 

REPRODUCTIONS OF THE EXECUTABLE LINKED IMAGES MAy BF AS CARD DECKS 
OR AS MEMBER "SW"/»EW" OF,A MULTI"''" - 


IT WILL BE FuUND AS MEMBER "SW M /"LW« WITHIN FILE "PROGFILE 
ETTE VOLUME ENTITLED "DIAGS". 


IPLE MEMBER FILE. MOSJ,FREQUENTLY 


F A DISK- 


DISTRIBUTION OF THE LISTINGS 
MAINTENANCE uR REPAIR 

printed copy. 


MAIN "MEMORY REQUIREMENT; 


_ WHICH SHOULD dE AVAILABLE IF ANY COMPLEX 

IS TO BE PERFORMED, IS NORMALLY MADE AS A 


THIS PROGRAM REQUIRES 8K WORDS OF MAIN MEMORY IN SAF MODE OR 12k WORDS 
IN LAF MODE. 


**#***********************#***##***####*****#*************************** 
* 

* 

* 

* 

* 

* 

* 

* 

* 


UPERATION; 

LOAD THt PROGRAM AND START (OR RESTART) AT LOCATTON 
0100 HEX, IF A CONSOLE IS PRESENT, VERIFY CORRECT 
PROGRAM IDENTIFICATION FROM THE LISTING OF THE I/O 
EQUIPMENT BY CHANNEL NUMBER AND ID-CODE. THIS LISTING WILL 
BE OMITitD ON RESTARTS. 


THE CONSOLE SEARCH RULES ARE: FIND THE CONSOLE WITH THE LOWEST CHANNEL 
NUMBER CONNECTED THRU AN MDC CONTROLLER. IF THFRF 1S NO CONSOLE ON AN 
MDC, THEN SEARCH FOR A TERMINAL WITH THE hluHEST CHANNEL NUMBER ASSIGNED 
TO AN ACLA AUAPTER ON AN MLC CONTROLLER. IF NO ASYNC ADAPTER IS FOUND, 
THEN GO TO TnE FULL CONTROL PANEL. 

THERE AKE THREE CONSOLE CHANNEL OPTIONS DETERMINED BY THE VALUE OF LO¬ 
CATION "ZVSTTY". 

IF ZVSTTY EQUALS (0000), SEARCH FOR A CONSOLE. 

IF ZVSTTY EQUALS (FFFF), ASSUME THERE IS NO CONSOLE. 

IF ZVSTTY EQUALS NEITHER (0000), NOR (FFFF), THEN IT IS THE CONSOLE CHAN¬ 
NEL NUMBER. NOTE; DEFAULT IS TO SEARCH FoR A CONSOLE. 

ALL CONSOLE I/O IS EVEN PARITY. IF CONSOLE IS On ML.C, IT MUST BE ASYNC 
AND THE BAUD RATE SET AT 1200 TO MATCH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECESSARY TO CHANGE THE PROGRAM BAUD RATl, THEN THE NEW BAUD RATE 
CODE SHOULD bE PUT INTO LOCATION "ZVSBUD" In HEX. THE TERMINAL BAUD RATE 
MUST BE SET TO MATCH THIS NEW BAUD RATE. THE CORRECT HEX VALUE MAY BE 
OBTAINED FROM THE FOLLOWING TABLE. 


BAUD RATE TABLE 


* 

ACLA I.D. 

(2118)(2110) 

(2108) 

* 

BAUD-RATt 



* 

50 

0 

i 

* 

75 

1 

2 

* 

110 

2 

3 

* 

134 

3 

4 

* 

150 

4 

5 

# 

200 

5 

——— 

* 

300 

6 

6 

* 

600 

7 

7 

* 

900 


8 

* 

1050 

8 

——— 

* 

1200 

9 

9 

* 

1800 

10 (A) 

10 (A) 

* 

2000 

11 (b) 


* 

2400 

12 (C) 

ir<B> 

* 

3600 


12 (C) 

* 

4800 

13~<D) 

13 (D) 

# 

7200 


14 (E) 

* 

9600 

14 (E) 

15 (F) 

* 

19200 

15 (F) 



TO MAKE ANY OF THE ABOVE CHANGES, LOAD AND HALT THF PROGRAM BEFORE EX¬ 
ECUTION. INSERT CHANGE THEN EXECUTE. MEMOkY LOCATIONS OF "ZVSTTY" AND 
"ZVsbUD" MAY BE FOUND IN MAP AT END OF LISTING, 

CONSULT LEVEl-6 T6V MANUAL "AW94" FOR DETAILS ON HOW TO LOAD THE TESTS. 

THE FOLLOWING IS A TYPICAL RESULT OF LOADING THE PROGRAM 
AND STARTING TO RUN. 


SMDX2 REV X, 
ZVSLIB REV. 


STORAGE MODULE T6D, 
X.X 


MM DD YY 


WDT 

CHAN 

0400 

0480 


DEVC 

DSKT 

DSKT 


ID 

2010 

2010 


k 
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000164 
000163 
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00016b 
000166 
0 0 0 i 6 7 
000168 
OOU16 9 
000170 
000171 
00017c 
0 0 0 17 3 
000174 
00017b 
00017c 
000 1 77 
000178 
000179 
000180 
000 i 81 - 

0O0184 
OoOl8 3 
OOU184 
00018b 
000186 
000187 
UO0 18b 
000189 
000190 
000191 
U00192 
000193 
000194 
00019b 
000196 
000197 
000198 
000199 
OOOzOO 
000401 
GOO 4 O 2 
OOO4O8 
000404 
OOO^Ob 
0 OO 4 O 6 
0u0407 
OOO 4 O 6 
000409 
0004 10 
000411 
00041 4 
0u04 1 3 
000cl<+ 
00041b 
OOO 4 1 6 
000417 
000418 
000419 
000420 
000421 
000424 
000423 
000424 
00042b 
000426 
000427 
000428 
0U0cZ9 
000430 
000431 
000434 
000433 
000234 
00043b 
000436 
000437 
000438 
000439 
000440 
000441 
00044Z 
000443 
000444 
00044b 
000446 
000447 
000448 
000449 
0 00 4 b 0 
0004 b 1 
OOO 4 b4 
0004 b 3 
OOO 4 b4 
OOO^ibb 
000436 
0u04 b 7 
000438 
000439 
OOO 46 O 
000461 


0300 CONS 
1200 DISK 
1280 DISK 
0580 CDR 
MEMORY LOW 


2018 
2361 
2363 
2008 
OOOOXXXX 


MEMURY HIGH 00007FFF 32K 


REAo BUFF ADDR(HEX); 
WRITE BUFF ADDR(HEX)! 


XXXX 

XXXX 


THE FIRST EXECUTION OF THE PROGRAM WILL ASK THE QUESTION; 

POWER FREQ, HZ ?; 60 C/R (ON A 6/30 SYSTEM ONLY) 

RESPOND WITH THE POWER LINE FREQUENCY IN HEkTZ, 

USUALLY 60 IN THE UNITED STATES AND SO ELSEWHERE. THE 
PROGRAM WILL THEN CALIBRATE THE CPU CLOCK AuAINSt THE 
REAL-TIME-CLuCK. DEFAULT VALUE IS 60 HZ. WilH A 6 / 40 * 

THIS QUc.5TI0m WILL NOT BE ASKED. 

THE PROGRAM WILL THEN ASK; 

CHANNEL ?; 1200 C/R 


FIRMWARE REV 


XX 


THt RESPONSE SHOULD BE THE FOUR DIGIT HEX CHANNEL NUMBER ASSIGNED 
TO ANY DEVICE IN THE SUBSYSTEM. THE PROGRAM WILL USE f 
THE CONTKuLLlR PORTION OF THE CHANNEL NUMBEk TO ADDRESS 
ALL UEVICtS. DEFAULT VALUE IS HEX 1200. 

THE ABOVE SEQUENCE WILL ONLY OCCUR ON THE FIRST START AFTER 
A FRESH LOAD OF THE PROGRAM. SUBSEQUENT RESTARTS WILL START 
AT TEST 0101. 


*********************************************************************** 

* TE5T DESCRIPTION; 

* 

* TEST 0101: LOGIC PLUG "O’* IS INSTALLED IN THE DEVlcF TO BE TESTED. 

* IF THIS DEVICE IS OTHER THAN "0" SWAP SFLFCTION PLUGS 

* wITH DEVICE ’'0*'. 

* THE DEVICE IS SELECTED AT LOGICAL ADDRESS «0 M * THEN ATTEMPT 

* TO SELECT WITH ADDRESS PLUG REMOVED. 


TEST 0102: 
TEST 0200; 

TEST 0300: 
TEST 0400; 
TEST osoo; 
TEST 0601: 


* TEST 0602; 

* 

* 

* TEST 0603: 

* 

* 

* 

* 

* TEST 0604; 

* 

* 


* TEST 0700: 

* 

* 

* 


* TEST GtiOO: 

* 

* TEST 0900: 


REINSTALL NORMAL LOGIC PLUG IN DEVICE And SELECT AT THIS 
ADDRESS. 

ALL COMBINATIONS OF oUS-OUT INFORMATION ARF WRAPPED 
BACK ON BOS-IN. SOLID ERROR PRlNTuUTS ARE TERMINATED 
BY THE "BREAK” KEY. 

CYCLE UP AND CYCLE DOWN SEQUENCES ARE ExFRClSED. 

RFU 

RTZ SEQUENCES ARE TESTED. 

UFFSETS (+6-).ZERO SEEK AND ILLEGAL SEE* OPERATIONS 
ARE TESTED. 

SINGLE TRACK SEEKS FROM 0 TO MAX. CYLINDFR AND 
RETURN ARE MONITORED. 

RANDOM SEEKS ARE TIMED FOR A MAXIMUM OF 10,000 
OPERATIONS. THE SEQUENCE MAY BE TERMINATED AT 
ANY TIME BY HITTING THE "BREAK" KEY. Thf AVER¬ 
AGE SEEK TIME IS THEN CALCULATED. 

A DIRECT SEEK FROM 0 TO AN OPERATOR SELECTFD CYL¬ 
INDER (DECIMAL) AND RETURN IS MONITORED. THE TEST 
MAY BE LOOPED AT THE OPERATORS DISCRETION AND TERM¬ 
INATED BY THE "BREAK" KEY. 

MAXIMUM CYLINDER SEEKS ARE PERFORMED FOr thE NUMBER 
OF OPERATOR SPECIFIED CYCLES(32K DECIMAL MAX.) OR UNTIL 
TERMINATED BY THE "BREAK" KEY. MAX. FWq, REV AND 
AVERAGE SEEK TIMES ARE DISPLAYED As AN AID TO COURSE 
VELOCITY GAIN ADJUSTMENT. ~ . - . . 

THIS TEST IS NOT PERFORMED ON LEVL 6. 

THE SECTOR COUNTER IS TESTED SEQUENTIALLY FROM 
SECTOR 0 TO SECTOR 63. 


* TEST 1000; WRITE PROTECT FUNCTION IS CHECKED. 

* TEST 1001; IF WRITE OPERATIONS ARE PERMITTED mLL TRACKS ARE 

* FORMATTED ON AN OPERATOR SELECTED CYLINDFR. AFTER 

* CHECKING THE FORMAT INFORMATION, A WORSp CASE PATT- 

* ERN IS WRITTEN ON AN OPERATOR SELECTED RFCQRD ON ALL 

* TRACKS AND THEN READ. ALE OPERATOR INPUTS ARE DECIMAL 

* SOLID ERROR PRINTOUTS ARE TERMINATED BY THF "BREAK" KE 

* THE LAST TRACK NUMBER PRINTED IS ThE CURRENT TRACK. 
************************************************************************ 

* ERROR REPORTING; 

* --- 

* 


b. 


DETECTED ERRORS ARE REPORTED AS FOLLOWS; 

tY XXXX <TAG XX 


000262 

* 

ERRuR DICTIONARY 1 

000263 

* 

YYYY TEST FAILED • 

000464 

* 

0G0c6b 

* 

REGISTER DUMP; 

000266 

* 

B7 B6 B5 B4 

000267 

* 

B3 B2 B1 I 

000268 

* 

R7 R6 R5 R4 

000269 

* 

R3 R2 R1 M 

000270 

* 


000471 

* 

these registers were saved 

000274 

* 

THE ERRUR REPORTING RETURN 

000273 

* 


000274 

* 

THE PROGRAM WILL THEN ASK ' 


IS YY* SB ZZ> 


PRIOR TO ENTRY Tu THE REPORTING ROUTINE* 
LOCATION IS CONTAINED IN B5. 

“HE QUESTION "RESTART?". REPLY <Y) OR (N)< 
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000^75 

000^76 

UUU277 

0U0278 

0GUc79 

OUU^SU 

000E8i 

UOOZQt 

0u0l83 


* THE TROUBLE SHOOTING AND REPAIR GUIDE <AV-0O26-0i5-N) CONTAINS 

* THE FAULT DICTIONARY, REFERENCE TO THE DICTIONARY fNTRY 

* INDICATES THE FAILED ORU(S) AND AN EXTENDED PROCEDURE 

* toHERE APPLICABLE, 


V 


********************************************************************** 
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000284 
000^83 
000386 
UUUcHV 
QUOcSb 
000^69 
0UU^9u 
000^.9 i 
000*9^ 
000493 
000494 
000493 
000496 
00049 / 
0GU^9d 
000499 
000300 
000301 
GUO3O4 
GGG303 
GOG 

000303 
UOO 3 O 0 
00030/ 
GuG 306 
GU0309 
GuG3 lu 
0003 1 i 
000313 
GOG 313 
U U 0 3 1 4 
0003 13 
GGG316 
G G u 3 1 7 
OoG 3 lb 
GGG3 19 
GUG32G 
00032i 
000324 
GGG32 3 
00032*+ 
G G G 3 2 9 
00032 o 
000327 
000326 
000329 
GUU330 
000331 
0UU33C 
GU0333 
0UU334 


/#ft****ft*ft*ft**ftft**ftft**ftftftftftftftftftftftft*ft*ftftft**ft*****ft**ft*ft**ftft*#*ft######ft#ftft 

* STATUS woRdS; 

2 the Two status words have the FOLLOWING SIGuIFICaNCf: 


* FIRST STATUS WORD 

* blT STATUS 


* 

* 

0 

READY 

ft 

1 

ATTENTION 

* 

2 

0VERKUN@UNDERRUN 

* 

ft 

3 

DEVICE FAULT 

ft 

4 

READ ERROR 

* 

3 

ILLEGAL SEEK 

* 

6 

HISSED DATA SYNCH 

* 

ft 

7 

UNSUCCESSFUL SEARCH 

* 

6 

HISSING CLOCK PLiLsE 

* 

9 

SUCCESSFUL RECOVERY 

* 

10 

RFU 

* 

11 

KFU 

ft 

U 

CORRECTED memory error 

* 

13 

N0 N-ExISTANT RESOURCE ERROR 

* 

14 

bUS PARITY ERROR 

* 

* 

IS 

UNCONNECTED MEMORY ERROR 

* 

* 

SECOND 

STATUS WORD 

* 

ft 

BIT 

bTATUu 

* 

0 

CORRECTED READ ERROR 

* 

1 

SUCCESSFUL RETRY 

* 

2 

UVE'RkUN/UNDLRRUN RECOVERY 

* 

ft 

3 

DEVICE SEIZED 

* 

4 

DEVICE RESERVED 

# 

3 

KFU 

* 

6 

KFU 

* 

ft 

7 

KFU 

* 

6 

no head select 

* 

9 

write FAULT 

* 

10 

(W+RJOFF CYL 

ft 

ft 

11 

W.R FAULT 

ft 

II~~ 

VOLTAGE FAULT 

* 

13 

HEAD SELECT FAULT 

# 

14 

SEEK ERROR 

* 

* 

13 

wRITe PROTECTED 
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Ou0333 
uuUi3 d 
UUU337 
u u 0 3 3 o 


000374 
U U 0 3 7 3 
00037b 
U 0 0 3 7 7 
0 0 0 3 7 o 


/**************************************************************#******* 

* dUS-IN bYTtb REPORTED AS "IS" / «SB% 

* THt gUS IN oYTES HAVE THE FOLLOWING SIGNIFICANCE; 


000339 

* 

tag i 

BYTE 

UUU34U 

* 

bIT 

STAjUS 

0u034I 

* 

..... 


00U34t 

* 

0-7 

bUS-uuT BITS WKAPPEt 

0 U 0 3 4 3 

Ul)U34<+ 

* 

* 

TAG 2 

bYTE 

000343 

* 

Dir 

STATUS 

U 0 U 3 4 0 

* 

.... 


UUU347 

* 

0 

NU HtAD SELECT 

Uu034b 

* 

l 

WRITt FAULT 

0u0349 

* 

2 

(W♦R) OFF CYL. 

Uuu _>3u 

* 

3 

w.R FAULT 

000331 

* 

.... 


U0033t 

* 

4 

VOLTAGE FAULT 

0 U 0 3 3 3 

* 

3 

HEAD SELECT FAULT 

u 0 U 3 5 *t 

* 

6 

SEEK ERROR 

000 33 3 

* 

7 

WRITt PROTECTED 

00033o 

000337 

* 

* 

TAG 3 

BYTE 

00033b 

* 

bIT 

STAT US 

0 o u 3 3 9 

* 

.... 


000360 

* 

0 

START 

0 U 0 3 6 i 

* 

I 

SPEEu 

00036t 

* 

t 

LUAD*+RT2* 

000363 

* 

3 

DIBIT FAULT 

0 0 0 3 6 h 

* 



000363 

* 

4 

HEADS LOADED 

0 u 0 3 6 o 

* 

5 

SLOPt 

00036 7 

* 

6 

FINE 

U 0 0 3 6 b 

* 

7 

RFU 

000369 

* 

Tag s 


000370 

* 

BYTE 

000371 

* 

BIT 

STATUS 

0 0 0 3 7 b 

* 

.... 


OUUj73 

* 

0-7 

RpS COUNTER 


000379 

* FLAG 

bIT 

15 

0 U 0 3 8 0 

* 

b I 1 

14 

0U0s8i 

* 

bIT 

13 

0UU38t 

* 

BIT 

it 

000383 

* 

bll 

11 


*********************************************************************** 
* 

PASS INDICATOR 
dYPASS INDICATOR 
10 MS TIME INDICATOR 
SLOW SEEK INDICATOR 
TIMER OVERFLOW 
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uuuib4 
U U (J J 8 3 
UUUJtiO 

uuu3a l 

UUO 3'6o 
UUUj 6> 
U U U 3 9 u 
U u U 3 9 i 
UUU j9<: 
000393 


uuu 394 

UUU393 

UUUb9b 

UU0397 
0U0398 
0UU399 
uouhOu 
U U 0 4 0 l 
OUOhOl 
UU0403 
OuOnU4 
U 0 (J 4 0 3 
U u U 4 0 b 
UUUM-0 / 

UOO 4 O 0 
U u 0 4 0 9 
UUU4 1 0 
OOU41 1 
UUU4 1 c 


OUU41 3 


OOU414 
UU0h13 
0 U U 4 1 O 


U 0 0 4 1 7 


0004 1 6 
UUU419 

U U Q 4 2 u 
000421 


000424 


00O423 
000424 
0004213 
00042b 
OU0427 
00042b 
000429 
000430 
000431 
000432 
000433 
000434 
000433 
00043b 
0OO437 
00043b 
000439 
000440 
000441 
000444 
000443 
000444 
000443 
00044b 
00044 7 
00044b 
000449 
00043 0 
000451 
000454 
000453 
000454 
000455 
00045b 
000457 

O0O45o 

000459 

000460 

000461 


0100 

0 100 

0101 
0 1 U3 
0 1 0 3 
0 1 0 b 


OOOo 


0 1 Oo 


6753 

FbCu 
o380 
OF 80 
0 F F o 


o003 

0000 


0130 
0131 
0132 
0 133 

0133 

0137 

0139 

013M 

013d 
0130 
013F 
0140 
0 141 
0142 
0143 

0144 

0146 
0 146 
0 14M 
0140 

0 14C 
0140 
0130 
0131 


OF 80 
OFCA 
FC06 
0380 

FBCO 
0380 
OF 80 
11C9 

FBCO 

0380 

UF80 

OFCA 

8C51 

8201 

2000 

0500 

FbCO 
0380 
0F8O 
1100 

FBCO 
03 8u 
OF 80 
OF 01 


ULt 2 


U003 

0000 


UU03 

0000 


0152 


0003 

UOOO 


0003 

0000 


0177 

0179 


017A 

017C 

0178. 


6900 0FC3 
0001 


FBCO 0003 
D380 0000 
OF 80 


/************************** ********************************************* 

L K XLUC lHIdAZiZHkTCI*ZHkTCC,ZHRTCL»ZHNTSA,ZV$Hr,ZHTH 15»ZHC0MM,ZV$0KF 
XLUC 4VSSV1iZV$SV2*ZV3Fkb»ZHIAFb*ZV$LR 
*****************^********* ********************************************** 


START 


LuU 

GRG 


CL 

CALL 


ZLKU+X*100* 
ST Ak 1 

~ sk 3 

IvSkD * MSNAML 


PRINT TITLE A»^D RESOURCES 


010 i 

6 2 80 

0FC3 



Ld 

<GOFLAG,=Z*0002» 

DEVICE ON LINl YET ? 

U i U 9 

0 00 4 







01UM 

0 3 UO 

01L2 



bbi 

<MOdE1H 

restart TEST 

blue 

8280 

0FC3 



Lb 

<GOFLAG*=Z•OOOl• 


0 lUt_ 

0001 






BYPASS THE FOLLOWING* DC 

blUF 

U 500 

0 I 7 A 



bbT 

<MOoElG 

bill 

CCbO 

UOOO 

X 


Lob 

SB4,<ZV$LR 

LOAD LOW MEMORY ADDRESS 

bl 13 

CF 80 

0FC7 



STB 

SB4,<KKPf 

RBUFF PTR 





RbUF 

LOU 

$B4 


0113 

8736 




CL 

= $Rb 


01 16 

F 800 

0FC7 



LOR 

SR7,<KKPT+SAF-1 

LOW MEMORY 

U 1 1 6 

F AUO 

UFC9 



AuD 

SR7*cLENGTH 

ADD BUFF LENGIH 

biia 

8EDb 




CMO 

= SRb 


b 1 1 D 

LAOU 

UFC 1 



AOD 

iR6 f <KKPT 


01 10 

t FOO 

U F C6 



SIR 

iR6,<JJPT 


u i IF 

F FbU 

uFCb 



STR 

i>R7 ,<JJPT + $AF-i 

LOAD wBUFF ADuRESS 

0141 

LC80 

OF Cb 



LOd 

*B6,<JJPT 






wbuF 

LuO 

SB6 


0143 

F CD4 




LDb 

SB7,=$b4 

GET RBUF ADDRESS 

0 144 

0380 

UEE2 



LIMJ 

*B5,<LNGASC 

ASCII CONVERSION 






CALL 

ZV$I#ZVsTC 1 MSRbUF 

READ bUFFER 

0 14b 

FbCO 

0003 






014b 

0380 

0000 

X 





0 i Z A 

OF 80 







0 1 2d 

1 1B6 




call 

ZV$I,LNGAD+$AF-i 

ADDRESS 

012C 

FBCO 

0003 






0 1 41 

03 8 0 

0000 

X 






LDB Sb7,=$b6 

UhJ iB5,<LNGASC 

CALL 4 V$ l .ZV$TC,MSaBUF 


CALL 4.VSI *LNGAD + $AF~1 


STS =$Ri 

Ld s$R1 ,=Z»2000» 

ddT <LE vX 

CALL ZV$ I.ZV$QC »MS3TC 


CALL ZV$iDiRTCHZ 


GET WbUF ADDRcSS 
ASCII CONVERSION 
WRITE BUFFER 


ADDRESS 

XTAL CLOCK ? 

PRINT KTC QUESTION 


GET RTC FREQUlNCY (DEFAULT = 60) 


SET UP FOR NORMaL RUNNING AT LEVEL 15 


0152 

9b80 

015D 


LLvX 

LAb 

SBl*<LEV-15 

CONTINUE AFTER SUSpFND TO LEV 15 

0154 

9F80 

121A 



STb 

$B1*<SA15P 

013b 

9B60 

1217 



LAb 

SB1*<SA15DV 

NORMAL SAVE AREA 

0138 

9F 80 

OOOF 

X 


STB 

3>B1 *<ZHISAZ*15*$AF 

ISA15 is 

0 l 3A 

8 E7 0 

80 OF 



LLV 

= Z•ttOOO * + I 5 

SUSPEND TO LEVEL I 5 

0 1 5C 

0000 




HLT 






* NOW 

AT LVL 

15* SET UP FOR RTC RUPT TO LVL 5 

0150 

9b80 

OtOF 


LEV-15 

lab 

SB1*<RTCFC 


01 5F 

9F80 

120E 



STB 

5>B 1 * <SA5P 


Olbi 

9B80 

120B 



LAb 

4B1*<SA5DV 


0163 

9F80 

0005 

X 


STB 

$Bl,<ZHISAZ+5*$AF 



0 lb3 

9800 

0FD1 


LOR 

$R1*<RTCHZ 

0167 

1 F02 



MLV 

SR 1* = 2 

0168 

1L01 



ADV - 

SRl,i=i 

0169 

9 FOO 

0000 

X 

STR 

$R 1 *<ZHRTCI 

Oi6b 

9F00 

0000 

X 

STR 

$R 1 * <ZHRT CC 

0160 

68D1 



DEC 

= $R i 

0 1 6l 

2C05 



LDV 

iR2,=5 

0 16 F 

AFOO 

0000 

X 

STR 

$R2, <ZHRTCL 

0171 

D380 

0E26 


LNJ 

$B5*<SYNCH 

0173 

0005 



RTCF 


01 7 4 

0000 



HLT 


0173 

OF80 

0174 


b 

<S-i 


* CALIBRATE CPU CLOCK AGAINST RTC 

* 

GET RTC FREQ 

INITIAL VALUE OF RTC 
CURRENT VALUE OF RTC 
SET $Ri FOR NlXT TICK 

calibrate 0 ruht at lvl 5 
r^t^dn.t ru,t 

************************************************************************ 

* T IMING LOOP SHOULD NOW BE CALIBRATED 

* 

RESUME LOT <GOFLAG*=Z*0001• SET RESTART FLAG 


* NOW DO MODE I 

* 

M0DE1G CALL ZV$T.ZVSGCtMSCHAN 


CONFIGURE CHANNEL NUMBERS 

ASK QUESTION "CHAN ?;« 






TITLE SL 

lD52,*REV C« 

' , STORAGE 

MODULE 

. TbD, FEB 18, 1976 

PAGE 8 


017 F 

i 194 






000464 





CALL 

2 V$ i H ,CHAN 

GET CHANNEL (DEFAULT = 1200) 


0180 

F BCo 

0003 






0182 

- 0380 

GOOD 

X 



4f 4^ 


0184 

OF 80 







0183 

11F 8 





4 .jp 

000463 

0186 

9800 

11 F 5 


LOR 

3>R1,<CHAN 

GET CHAN NO. 

000464 

0186 

9B80 

11F 6 


LAB 

SB1,<1 OREAD 

start OF CHANNELS table 

000463 

0 1 BA 

AbBO 

120A 


LAB 

SB2,<CHANZ 

END OF CHANNELS TABLE 

UU046O i 

01BC 

9AF1 



MODE IA 5k M 

SRldSBl,=Z»FEOO» 

CONFIGURE CHAn 


0180 

P EQO 






0u0h6 ? 

0 i at 

9002 



CMB 

SB 1, = SB2 

CHECK IF END uF TABLE 

OuOh66 

0 i bf 

0200 

018C 


bL 

<MODtIA 

LOOP BACK, NOT DONe 

UUUh69 





* 



000470 





* 



0004 t i 





* MOW CHlCk 

THAT DEVICE ADAPTER IS 

ON LINE BY 

000474 





* CHECKING 

ID CODES, BUT FIRST SET 

UP FOR NON-EXISTANt DEVICE 

000473 





* TRAP. 



000474 





* 



000473 

0191 

9BB0 

121C 


lab 

SB1 ,<TSA1 


0004 7 0 

0193 

9FB0 

uOOO 

X 

STB 

SB1,<ZHNTSA 


00Oh 71 

0193 

9FB0 

121C 


STB 

SB1,<TSA1 

SO WE DQN»T GlT TSa FULL RUPT 

OOOh 7 0 

0197 

B800 

0FC3 


L6F 

<G0FLAG,=Z»0Q02» 

WILL-SET IF OuOD Id FOUND 


0199 

0002 






00047V 

0 19A 

ABBO 

01 DO 


LAB 

SB2,<MODtIF 

TRAP HANDLER 

OOOhBO 

0 19C 

AFBO 

0000 

X 

STB 

SB2,<ZHTH15 

STORE IN TRAP 15 VFCTOR 

0004di 





* 



000484 

019L 

1CFC 



LOV 

SRl,=-4 


000483 

0 19F 

AB10 

0FB9 


MODE lb LOR 

sR2,<ORIVEO+4.sR1 

GET DEVICE ADDRESS 

000484 

0 1A1 

AABO 

1201 


SkM 

SR2,<INIDEN,-2»0180* 

SET UP INPUT ID 


0 1 A3 

OlbO 






000483 

01A4 

87 5 3 



CL 

= SR 3 


000486 

01A3 

8053 



MODE IC 10 

=$R3,<INIDEN 

GET ID IN R5 


0 1A6 

0000 

1201 





OO048 7 

01 A8 

0780 

01A5 


B1 OF 

<MOOEIC 


OOOhBo 

0 1AA 

OF 10 

OF 64 


SIR 

$R5,<DEVID+4.SR1 

STORE DEVICE ID 

000489 

0 1 AC 

0570 

FFFO 


AND 

&R3 »~Z' FFFO• 

CHECK ID (R5) 

0 0 0 h 9 0 

0 1 At 

0970 

2360 


CNN 

$R5,=Z»2360» 


000h 9i 

OlbO 

0980 

ulB5 


ONE 

<MOuEIE 


000494 

0104 

8900 

OF C3 


LbT 

<GOF LAG,=Z 1 0002 * 

set flag* id uk 


0104 

0002 






0u0493 

0 108 

1780 

019F 


MOoEIt B1NC 

SRI ,<MODEIB 

TRY NEXT ADDRlSS 

000494 








000493 





* ALL FOUR ! 

DEVICE- ADDRESSES CHECKED, TEST THE FLAG 

0O0496 





* 



000497 

0167 

9B80 

OEO 1 


LAo 

Sbl,<TH13 

SET UP FOR FUTURE... 

000498 

0109 

9 F 80 

0000 

X 

STB 

Sbl,<ZHTH13 

...MISSING REsOURCf TRAPS. 

000499 

OlbO 

8280 

OF C3 


Lo 

<GOF LAG , =Z • 0002 • 



OlbO 

0002 






000300 

0 lot 

0500 


T 

bbT 

> + $A 

FLAG ok, continue 

000301 





CALL 

ZV$T.ZV$TC,MSND 

NO DEVICE THIS CHANNEL 


0 1 OF 

F BCO 

0003 






Old 

0380 

0000 

X 





0103 

OF 80 







0104 

119C 






000304 

0103 

OF 80 

0100 


0 

<STaRT 

WRONG CHANNEL /f T\ 

000303 

0107 

8051 



SA 10 

= $R1 ,< INFWRV 

GET F/W REV 


OiOo 

0000 

rv 

e 

c 




V. J 

000304 

OiOA 

07F 0 



BIuF 

>-$ A 


000306 

01 Ob 

9570 

GUFF 


AND 

SRI ,=X'FF* 


000306 

0 100 

9F00 

0FE7 


STR 

SRI,<TEMPA 


0 0 0 3 0 7 





CALL 

ZV$I.ZVSTC,MSFWRV 

FIRMWARE REV fiSG 


01 OF 

FBCU 

0003 






OlOl 

0380 

0000 

X 





0103 

OFbO 







0104 

1045 






000806 





call 

ZV$ j'H, TEMP A 

CONVERT TO PRiNT ASCII 


0103 

F BCO 

0003 






0107 

0380 

0000 

X 





0109 

OFbo 







01 DA 

0 F L 7 






000 309 

0 loo 

OF 80 

0200 


b 

<T0i01 

GO TO 1ST TEST 

000310 








00081i 

0 1 uu 

9B80 

0165 


MODEIF LAB 

SB 1,<MODEIE 

RESUME SCAN AT MODfIE 

000 814 

0 1 OF 

9F8U 

1222 


STB 

S61,<TSA1P 


0003 1 8 

oiti 

0003 



KIT 


RETURN FROM TkAP 

000814 





**********************************************************************: 

0u0813 





* RLSTOkE 

TkAPS 


0008 1 6 





* 



OOu 3 1 7 

Old 

9ob0 

OtO 1 


MODE1H LAB 

Sbl,<TH15 

missing RESOURCE Trap 

'0 0O'8 TO" 

GIE4 

9 F 8 0 

0000 

X 

STB 

SB1,<ZHThl5 

. 

000319 

01 Lo 

8000 

11 F 3 


*A lU 

<IN4bDC,<0TC0NT 

INITIALIZED 


0 1L 8 

0000 

ilFb 





0 0 0 3 2 0 

01 EA 

U7 ^ C 



BiUF 

>-$A 


000321 

0 1 Lu 

CC6U 

0FC7 


LOd 

S64,<KKPT 

RESET RBUFF POINTER 

000322 

0 1 to 

LC80 

OF C6 


LOd 

SB6,<JJPT 

RESET WBUFF POINTER 

000323 

OioF 

9o80 

120b 


LAB 

SB1,<SA5DV 

SET RTC LEVEL 

0o032h 

01 Fi 

9 F 8 0 

0005 

A 

STB 

Sbl,<ZHiSAZ + 3 *$AF 


000323 

0 1 F 3 

9b8U 

01FF 


LAd 

SB1,<RESTRT 


0oO32o 

U i F 3 

9F80 

12 1A 


bid 

SB1,<SA13P 


000827 

OIF 7 

9B80 

1217 


LAd 

Sbl,<SA13DV 

SET NORMAL RUNNING LEVEL 

0 0 0 8 2 o 

0 1F9 

9F80 

00 OF 

X 

STB 

Sbl,<2HISAZ+15*$AF 


000829 

0 1 Fo 

617 u 

800 F 


LlV 

= Z * 6000 *♦15 


000330 

0 1 F 0 

0000 



HLT 



oOO 8 31 

OIFl 

OFFF 



b 

>$-i 


Ouo33t 





**********.******************************************************************* 

000833 





* ALL NOW INITIALIZED 


000334 





* 



O00833 





RESTRT CALL 

ZV$1.ZVSQC,M5RSTR 



U1FF 

FbCO 

0003 






0401 

0380 

GOOD 

X 





0203 

OFBO 







0204 

1Kb 






000336 

0203 

0380 

OOOB 


LNj 

$B5 ,< VSNO 

RESTART ? 

000337 

0207 

0000 



DC 

< + $ A 

•N» RtPLY 

00033b 

04U8 

0 2 00 



DC 

<T010 1 

9 Y * REPLY 

000339 

0209 

0000 



$A HLT 



000340 

020A 

OFFF 



b 

>-$ A 

FREEZE HERE 4 >. 

000841 

020o 

OFBO 

OF 87 


B 

<PCh 

XXXXXXXXDEBuG TOOL 1 

' 







\ p 
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TITLE SmDS 2* • REV C», STORAGE MODULE TbD* FEB 18* 197a 


0U0542 

000543 

000544 

000545 

UOU64o 

000547 

00054b 


000589 
000590 
000591 
OOQ592 
00059b 
000594 
OoO 59 5 
OOGb95 
0 0 G b 9 / 
0o059b 


G0G50 l 
00060b 
GGUoOV 
OGGb I u 


GGGbl1 
OGGb12 


027C 
0271 
G2bO 
02b 1 
0^b2 
02 b4 
0*8 5 

0L66 
02bb 
0 2b A 
02bo 
02 bL 

0 250 
0 2 b F 
0291 
0292 


FbGO 
D380 
GFbG 
OF AG 
9800 
1042 
1900 

FbCO 
03 bO 
OF 80 
1042 
OFFO 

FbCG 
0380 
OF 80 
10E1 


0003 

GOOD 


OF AC 


0003 

0000 


0003 

0000 


/********************************************************************** 

* TEST 0100 StLECiI ON TEST PART 1 

* 

* — —— - ——-—————————————— 

* TEST 0101 DEVICE 0 

* 


00Gb4^ 

G2GU 

6700 

OF C2 


10101 

CL 

OOObbG 

020 F 

6 700 

OF Cl 



Cl 

000551 

G 2 11 

8700 

OFAC 



CL 

OGO b b c 

0213 

9870 

0101 



LDK 

GGGbb3 

02 1 b 

9F00 

UFEB 



STR 

00Gbb4 

0217 

8280 

0FC5 



Ld 


0219 

0001 





OGGbbb 

G 2 1A 

0500 

0238 



BdT 

000556 

G 2 1C 

D380 

0C6D 



Lis J 

OOGbb 7 






CALL 


02 11 

FBCG 

0003 





0220 

D380 

0000 

X 




0224 

0F80 






0223 

1 09d 





Ouo55b 






CALL 


0224 

FBCG 

0003 





0226 

D380 

0000 

X 




022b 

0F8U 






0229 

OF AC 





000559 





TOlOlb 

CALL 


024A 

FbCO 

0003 





02 2L 

D380 

0000 

X 




022E 

OF 80 






022 F 

10EA 





0GGb6G 

0230 

D380 

ODOB 



LisJ 

G00b6 1 

0232 

022a 




DC 

000564 

0233 

0234 




DC 

0G0b63 

0234 

B800 

OFAC 



LDR 

GUGb64 

0236 

D380 

UUF5 



LNJ 

0GGb6b 

G23b 

A800 

OFFb 


T0101A 

LDR 

GGGb6o 

G23A 

AF 00 

0FE7 



STR 

0 U G b 6 7 

G23C 

D3bO 

OC50 



LnJ 

GGGb6b 

023t 

DOOU 




DC 

G0Gb69 

023F 

9800 

0FE7 



LDR 

0O057O 

0241 

8900 

0FC2 



LbT 


0243 

0001 





GU0b71 

0244 

ObOO 


T 


bdT 

000574 

02 4b 

99 b2 




CHR 

000b73 

G24o 

0980 


T 


BNE 

GGGb 74 

0247 

D380 

0C85 



LNJ 

0 G G b 7 b 

0249 

0102 




DC 

OGOb 7b 





SA 

CALL 


024A 

FbCG 

0003 





G 2 4 L 

D380 

0000 

A 




G24L 

GFbG 






U24F 

11 bb 





0 0 G b 7 7 






CALL 


02 bG 

FBCO 

0003 





02 b 2 

0380 

0000 

A 




02 b4 

0F80 






02 bb 

OFAC 





G u U b 7 o 





T0101C 

CALL 


G2b6 

FbCO 

0003 





02 bb 

D380 

0000 

X 




04 5 A 

OF 60 






02 bo 

1 OLA 





G G G b 7 9 

G2bL 

D3faO 

ODOB 



LNJ 

OOGbSG 

045E 

0256 




DC 

OGGbBi. 

02 bF 

0260 




DC 

0GO58t 

02b0 

OF 80 

0238 



b 

GGGb83 

0264 

9952 



sb 

CNK 

OGGb8 a 

0263 

0900 


T 


BL 

GGGbbb 

U 2 b4 

D380 

OC85 



LNJ 

GGGbSb 

0255 

0106 




DC 

0QO587 

0 2 5 7 

D3bO 

OCDD 


sc 

LNJ 

G0Ub8b 

0259 

0101 




DC 


<FLAG 
<ERFL 
<BI IE 

SRI*=2*0101• 

SR1*<TEST 

<IPFL»=X»1» 

<T0101A 

SB5,<TDST 

ZV$T.ZVSTC*MS1LP 


CALL 2V$TH,6ITE 


CLEAR ERROR FLAG 
SET DEVICE 0 

LOAD TEST NUMd 
INHIBIT PRINT ? 


•START TEST* 
INSTALL LOGIC PLUG 


GET DRIVE NUMBER 


ZVST.ZVsTCfMSDONE 


SB5 ♦ < YSNO 

<T0101B 

<S+sAF 

SR3i<BITE 

sB5 *<CDCH 

SR2,<X~FFFF 

SR2 * <TEMPA 

SB5,<TAGi 

Z 1 DoOO • 

$Rlt<TEMPA 

<FLaG,=Z*0001» 

> + Sd 

SRI»=$R2 
>*SA 

$65,<TDER 
Z * 0102 • 

ZVST.ZVSTC,MSRLP 


•Y• WHEN DONE 


* N * REPLY 

• Y• REPLY 

INDEX bET TO oEVICf NUMBER 

SET CHANNELS FOR CURRENT DEVICES 

MAKE TEMPA UNIQUE 

TAG CODE IN 
GET BUS IN DA(A 
1ST PASS DONE 

PLUG MISSING 
BUS IN CHANGED? 

YES- DEVICE WAS SELFCTED 
ERROR 

MODULE NOT SELECTED 
REMOVE PLUG 


CALL ZVSTHfBITE 


«Y« WHEN DONE 


$B5♦<YSNO 
<T0101C 
<S+sAF 
<T0101A 
$R1* = SR2 
> + SL 

S65 »<TDEK 
Z * 0106 * 
SbS »<TDTE 

Z*0i01 • 


* N * 

• Y* 

2ND 

BUS 


REPLY 

REPLY 

PASS 

IN CHANGED ? 


SHOULD NOT CHaNGE 

MODULE ADDRESS FAULT 
END TEST 
NUMB 0101 


************************************************************************* 

* TEST 0100 SELECTION TEST PART 2 

* 

* 

* - ---— ----— -——- 

* IEST 0102 DEVICE N 


000599 

02 6 A 

8700 

OF C2 

TO i 02 

CL 

<F Lag 


OUObOu 

0 2 bC 

8700 

OFCi 


CL 

<ERFL 

CLEAR ERROR FlAG 

OUGoOi 

0 2 6 L 

6700 

OF hC 


CL 

<bl ft 

DEFAULT IS DEVICE 0 

OOO 0 O 4 

0 2 7 u 

9b70 

0102 


LDR 

SRI»=Z*0102» 

OOO 6 O 3 

0272 

9 F GO 

OFEb 


STR 

SRI*<TEST 

LOAD TEST NOMd 

000604 

02 74 

D380 

0C6D 


LNJ 

SB5,<TDST 

•START TEST* 

U00605 

0 2 7o 

FbCO 

0003 


call 

ZV$1•ZVSQC *MSDVNO 

ASK FOR DRIVE NUMB 


0278 

D380 

0000 

X 





02 7 A 

0F60 







0 4 7 b 

103b 





INPUT DRIVE NgMB 

UUO 0 O 6 




SA 

CALL 

2V$lDtbITE 


Sb 


LDK SKI*<bITE 

SUR SR 1»2 

bEZ SKl»>+$6 

CALL ZVST•ZV$QC »MSSLNK 


B >-SA 

CALL ZVSI.ZV$QC»MSDVID 


GET DEV NUMB 
DUMP 0->3 
DEV NUMB 0 -> 3 
? 


RETRY 






f 1 III SM/S^i' 

K6V C 

1 , ST UKAOit 

HO 

JULE TbO» 1 

F 6b 18 

, 197b 
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UUOb 1 b 

0293 

0F6 0 


T 


b 

>♦$6 


QUO614 





T 010 2 A 

CALL 

ZVST ,ZV$uC*M5BLNK 

? WRONG INPUT 


0494 

FbCO 

0003 







0296 

0360 

0000 

A 




m \\ 


0496 

OFbO 






I kl 


0499 

1042 







0QUt> 13 





3>b 

CALL 

ZV$1H»ID6N 

INPUT DEVICE ID 


02 9 A 

FbCO 

0003 







0290 

0380 

0000 

A 






0296 

OFbO 








02 9 F 

0FC4 







OoOolo 

02 AO 

9800 

OF C4 



LOH 

$R1♦<I06N 

GET MODEL 

U 0 0 0 1 7 

04 A2 

1A60 

0294 



bLEZ 

:bR 1 *<T 0102A 

WRONG MODEL 

OUOt) 1 o 

02A4 

9970 

2363 



C M K 

$R1♦=Z•2363• 


OUOo 1 4 

02 MO 

0300 

0294 



BO 

<T0102A 

TOO BIG 

OuGoZU 

02 Ab 

9970 

2360 



CHK 

$R1,=2 * 2360• 


000o 2 1 

02 AA 

0980 


T 


biNE 

> ♦ $ A 


QUO022 

04 Ad 

96 70 

UUOO 



LDk 

SR 1 * =2 * 0000 * 

LOAD OtVlCE ID FOR 40 Mb 

UU0b2 b 

02 Al> 

9970 

2361 


SA 

CHK 

$R1»=2 * 236 1 • 


UQUoZh 

02 AF 

0960 


T 


bNE 

> + $ A 


0 U 0 0 2 0 

02bU 

9870 

bUGO 



LDK 

SKl,=2*6000* 

ID FOR 80 Mb 

OUGobo 

0 2 b2 

9970 

2362 


SA 

CHK 

$R1*=2* 2362 * 


000627 

02b4 

0960 


T 


bNE 

> + $ A 


0 0 0 o 2 b 

02 63 

987u 

4000 



LOK 

$R1 * = 2 * 4000 * 

ID FOR 150 Mb 

000629 

0267 

9970 

2363 


$A 

CHK 

SRI*=Z*2363* 


000o3o 

0269 

09b0 


1 


BNE 

> + $A 


OOUo3 i 

026A 

9870 

cooo 



LOK 

SRI»=Z*COOO* 

ID FOR 300 MB 

OUOo 3 

02dC 

b20l 



SA 

Lb 

=$Ri,=Z»3FFF* 

INVALID ID 


02du 

3 F F F 







GU0o3b 

02uL 

0500 

0294 



BBT 

<T0102A 


000634 

0200 

9F00 

0 FC4 



STK 

$R1,<IDEN 

IDEM OK, STORc it 

000o3 6 






CALL 

ZVST•ZVsTCiHSiLP 

INSTALL LOGIC PLUG 


0202 

‘FbCO 

0003 







0204 

0360 

OOOU 

A 






0406 

OF 80 








0207 

109b 







uoOo 3 o 






CaLL 

ZV$iH*BITE 

CURRENT DRIVE 


U40b 

FbCO 

0003 







02 Oa 

0360 

0000 

A 






0200 

OFbO 








0200 

OFAC 







0 0 0 o 3 7 





TO 102C 

CALL 

2V$).ZV$TC,MSDONE 

* Y * WHEN DONE 


0206 

FbCO 

0003 







0200 

0360 

0000 

A 






0202 

OP 60 








0203 

106 m 







OuUo 3 b 

0204 

0380 

000b 



LNJ 

Sb5 ,< YSNG 


00Uo39 

0206 

02C6 




OC 

< TO 102C 

•N* REPLY 

000640 

020 ( 

020b 




DC 

<$+SAF 

* Y * REPLY 

000t>41 

0406 

0800 

OF AC 



LOK 

SR3,<6ITL 

SET INDEX TO oEVICp 

000644 

C20A 

0360 

OOF 5 



Lnj 

Sb5,<C0CH 

SET CHANS FOR THIS DEV 

000o43 

0200 

bAbO 

0265 



Skh 

$R3,<T0i026*=Z»0003» 

IN TAG COMMAND 


0206 

U003 







000649 

020F 

A600 

OF F b 


$b 

LOK 

$R2»<X-FFFF 


0U0b43 

0261 

AFOO 

OF 67 



STK 

SR2 *<TEMPA 

initialize , ... 

0u0o4o 

0263 

03b0 

0C50 



lnj 

$B5,<TAGI 


000647 

0265 

0000 



101026 

OC 

Z•DOOO• 

TAG COMMAND i 

00064o 

0266 

9800 

0 F 6 7 



Luk 

SR 1 , <TEMPA 

GET BUS IN DAI A V y 

0 0 0 0 4 9 

0266 

9952 




CHR 

SRIi=SR2 

ALL F • S MEANS NO TRANSFER 

000630 

0469 

0960 


T 


BNE 

>*SA 

OK 

OUOo 3 i 

026A 

0360 

0C85 



LNJ 

SB5,<TD6R 


OUOo 34 

0260 

0106 




OC 

Z’Oioa * 

MODULE NOT SELECTED 

U006 3 3 

0260 

9600 

0FC4 


SA 

AOK 

SRI*<IDEN 


000654 

026F 

8201 




Ld 

=$Ri*=2»E000* 

TEST ID BITS 


02F0 

6000 







GuOo5 3 

02 F 1 

0560 


T 


bBF 

> + SA 

OK 

000656 

04F2 

D3bO 

0C8 5 



LNJ 

SB5,<TD6R 

* 

0 U 0 o 5 7 

02F4 

0114 




DC 

Z •01 14 • 

WRONG ID 

00065b 

02 F 3 

9800 

OF E 7 


SA 

LOK 

SRU<T6HPA 

GET BUS IN AGAIN 

00OO59 

02 F7 

1046 




SOK 

SRUB 

GET DEV NUMB 

000660 

02 F 6 

9600 

OFAC 



XOK 

SR 1 » <BIT t 

AND COMPARE W*TH SFLECTED 

000661 

02F A 

8201 




Ld 

=SRi*=Z'OOOF* 



02 Fb 

000 F 







000664 

O2F0 

0560 


T 


BdF 

> + SA 

OK 

000663 

02F0 

0360 

0C6 5 



lnj 

SB5,<TDER 


000664 

02 FF 

0116 




OC 

2*0116* 

ADDRESS ERROR 

0QUo63 

0300 

0360 

uCOO 


$A 

lnj 

SB5 , <TDTE 

END OF TEST 

000666 

0304 

0102 




OC 

2*0102* 


0 0 0 6 6 7 





* 




000b6b 





* 




000669" 





*************************** **************************************************** 

0 0 0 6 7 u 





* TEST 

0200 

WKAP TEST 


000671 





* 


- 


UUUO f £ 

000673 

0303 

6700 

0FC2 


T0200 

CL 

<FLaG 


000674 

0 30 3 

6700 

0FC1 



CL 

< 6 R F L 

CLEAR ERROR FlAG 

0 0 0 b 7 5 

0307 

9670 

0200 



LOK 

SR 1 »= 2 * 0200 * 


000676 

0309 

9F00 

0F6b 



STk 

SR 1 * <TEST 

LOAD TEST NUMo 

000677 

030b 

0380 

0C6D 



lnj 

SB5,<TDST 

* ST ART TEST* 

00067o 

0300 

9870 

0100 


$A 

LOK 

$RU=2*0100* 

INITIAL DATA wRAP 

000679 

030F 

9F 00 

0313 



STk 

SRI *<T0200B 

TASK WORD 

000680 

0311 

0380 

0C50 


T0200A 

lnj 

Sb5 1 <TAGI 

tag IN t 

000681 

0313 

0100 



T 0200b 

OC 

2 » D100 * 

WRAP TEST 

000682 

0314 

F 800 

0F67 



LOK 

SR7 , <TEMPA 

GET • IS* DATA 

000683 

0316 

7046 




SOK 

SR7,b 


000684 

0317 

6600 

0313 



LOK 

SR6,<T0200B 

GET CMD 6 DATa 

000683 

0319 

6570 

OOFF 



AND 

SR6 * = X • F F * 

SAVE » S0* DATm 

000686 

031b 

6957 




CHK 

$R6,=$R7 


000687 

031C 

0900 

0337 



BL 

<T040GC 

DATA IS OK 

00068b 

0316 

6900 

0FC5 



LBT 

<1PFL*=X*2* 

SET FLAG FOR * IS* /• SB* PRINT 


0320 

0002 







000689 

0321 

4046 




SOK 

$R4,8 

get Tag 

000690 

0322 

C 5 7 0 

OOOF 



AND 

SR4 * = X * OF * 

GET TAG NUMBER 

000691 

0324 

CFOO 

0F69 



SI K 

SR4,<TEMPC 


000692 

0326 

0360 

0F7B 



LNJ 

SB5 « <CRLF 


000693 

032b 

0360 

OF 33 



LNJ 

665 , <PI SBC 

PRINT "IS" / "SB" DATA 

000694 

032 A 

6900 

OFCi 



LbT 

<ERFL,=X»01« 

SET ERROR FLAu 


032C 

0001 







000693 

0320 

8800 

0FC5 



LBF 

< IPFL * = X * 02 * 

CUR IS/SB FLAu 1 ,, 


032F 

0002 






V p 

000696 

0330 

0360 

0033 



LNJ 

$B5,<QUIT 

HIT BREAK. TO uUIT 

00U697 

0332 

0337 




OC 

<T0200C 

CONTINUE 

000698 

0333 

0334 




DC 

< $ + 6 A F 

GET OUT 




1 i 1 Lb Si v iDS2 » * 

REV c 

, STl 

0U0699 

0 3 3v 

0380 

0083 

0 U 0 7 0 U 

0 6 66 

0206 


000 701 

6 66 7 

bA80 

0313 

U 0 0 7 0 c 

066V 

b28u 

0313 


U33b 

0100 


000 700 

063L 

0600 

0311 

OOU 704 

0 3 6 L 

D3C0 

U99E 

0 u 0 7 0 3 

6 3hU 

0 2 00 


000/06 




uUU707 




0 U 0 7 0 6 




OOU 709 




UuO 71 o 




0 U 0 / 1 1 




OOU fie 




OOU / 1 3 




OUU 714 

6341 

6 700 

OF C2 

UUU 7 1 o 

6 34 3 

6 7 06 

OF C1 

UuU 7 1 6 

0 34 6 

Vti7u 

0300 

U U U 7 1 7 

6 6 4 7 

9F0u 

OF Eb 

U U U 7 1 6 

664V 

0386 

0C6O 

UUU 71 9 

6 6 4 u 

0380 

0C50 

UUU / 2u 

664 U 

0 700 


OUU 72 1 

6 34L 

8280 

u F E 7 


0360 

0100 


UUO 12c 

0661 

U380 

0 36 E 

UUU 723 

6663 

0380 

0C5 2 

UUO 724 

036 6 

027C 


OUO 726 

0 6 6 o 

o3bo 

UO50 

0 U 0 7 2 o 

0666 

D20U 


060727 

066 V 

6280 

UFE7 


636b 

8 GO 0 


U 0 0 7 2 6 

0 3 6 L 

0680 


000724 

036 b 

0380 

0C3 2 

u 0 0 7 3 u 

03 6 F 

0300 


0 0 0 7 3 1 

0360 

0380 

UC30 

UUU732 

0362 

0200 


0 u u 7 3 o 

6 36 3 

8280 

0FL7 


6366 

F EGO 


OUO 734 

0 36 6 

0580 

036E 

UUO 736 

0368 

0380 

0046 

U 0 0 7 3 6 

0 66 A 

0001 


000737 

0 6 6 D 

L/6 b u 

UC63 

000 7 3o 

0 66b 

030b 


OOu 734 

036L 

0380 

Oo50 

UUO 74U 

03 70 

0300 


UOO 74 1 

06 7 1 

8280 

OF E7 


0373 

0800 


U U 0 7 4 2 

0374 

0380 

U3B7 

000/43 





$b 


OUU 744 


0(jU 745 


0376 
0 3 76 
03 7a 
03 /u 

0370 
03 70 
0380 
036 1 


FbCO 
D3 8 0 
OF faO 
1040 

F boo 
0380 
OF 60 
1062 


0O03 

UOOO 


0003 

UOOO 


LNJ 
OC 

T0200C INC 
Lb 

boi 

LoJ 

00 


$B3,<1DEK 

L * 0206 • 

< T 0200B 

<T0^00b,=z'01Gu* 

< TO 2 GOA 
$B5,TDTE 

Z»0400» 
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DATA WRAP ERkuR 
NEXT DATA FOR WRAP 
CHECK FOR END 

NO-GO AGAIN 

END TEST 0200 


*************************************************;*****#*•#************ 

* IEST 0300 FIRST SEEK TEST 

* 

* --- ----—---- 

TO 300 


$A 


CL 

CL 

LDK 

51k 

LhJ 

Lim J 

L/C 

Ld 

ddF 

Lnj 

DC 

LNJ 

Dl 

Lb 

bbF 

LNJ 

DC 

LmJ 

DC 

Ld 


EdF 

LNJ 

DC 

LNJ 

DC 

T0300A LNj 
DC 
Ld 

bbF 

call 


call 


<F Lag 
<ERF L 

SRI* = 2*0300• 

4»r i »<i esT 

Sb5*<T DST 
$B5,<TAGI 
2»D/00* 

<TEnPA,=Z»0100» 

<T0300A 
Sb5 *<T AGO 
2 • D2 7C• 

$B5 » < 7 AGI 
Z»D200* 

<TEi*iPA * =Z * 8 • 

> + $ A 

$B5 *<TAGO 
Z*D3' 

$B5 *<TAGI 
Z*D2» 

<TEhPA,=Z« FE« 

<T0300A 
$B5,<SBIS 
x» 01 » 

$B5*<TDER 

Z*030fa» 

$B5 *<TAGI 
Z • D300 • 

<TEi‘»pA * =Z•08• 

<T 0300D 

ZV$l.ZV$TC*MS1ND 


ZVS UZV$TC*MSINDl 


STORE TEST NUwB 
•START TEST* 

TAG IN 

CONTROL TAG In 
CHECK DIAGNOSTIC BIT 

OK DO SOMETHING ELSE 
TAG OUT 

TRY TO CLEAR uIAG STATUS 
TAG IN 

READ D1AG STAlUS 
TEST HEAD SELcCT 


SELECT HEAD 0 


DIAG BITS CLEARED 
PRINT ’IS/tSb* 

BIT 7 DONT CAkE 
BAD COMPARE 

diag status failed to clear 

INPUT TASK 

TEST HEADS LOADED 

TEST HEADS LOADED 

OK* GO ON 
OPERATOR MESSAGES 


CALL ZV$T.ZVSTC*MS1ND2 


0382 
0 3«h 
u3bo 
03b 7 

U U 0 7 4 o 0368 
600747 63b A 

000 7 46 0 3 bb 

000/44 0 3bC 

036l 

UUU750 03bF 
UUO/Sl 039U 
0UG732 0392 

000753 0393 

000754 0393 

UUG/53 0396 
U0o7 56 0396 

0 39A 

000757 039b 

0007 3o 03 9C 
000 7 59 0 3 9 L 

000/60 039F 

UOU761 03AO 
UUU/6<. 03 A1 

uuO /63 03A2 

00076^ 03 A<+ 

000763 03a5 

UOU/66 03A 7 
000767 U3A9 
00076b 03 ad 
OUO 769 03 AC 

000770 03AL 
000771 03AF 

03bi 

UUO772 03b2 

000773 0 3b4 

000 774 03b6 

000773 

03b/ 

03b9 

C3bb 

G3bC 


FbCO 0003 
D38U 0000 
OF 60 
1065 

D380 ODOb 

038C 

0396 

6280 0FE7 
8000 
0580 

0380 0C85 
0312 

0380 UC85 
0314 

D380 OF 12 
6260 OFE5 
6000 
057b 

D360 0L41 
0019 
Of 60 
0F80 
OF F l 

D3fa0 0C50 
D300 

90fa0 0FE7 
9570 4800 
9970 4800 
0980 

D380 0C83 
0316 

8280 UFE7 
C800 

0360 03B7 
03bu OC85 
0310 

FBCO 0003 
D380 0000 
0F80 
112D 


$A 

LNJ 

SB5 * <YSNO 

•Y* OR •N* REjPONSf 


DC 

<103006 

•N* 


Do 

<T 0300C 

* Y* 

T0300B 

Lb 

< TE» V »PA * = Z • 80* 

CHECK START blT 


bbF 

> ♦ $ A 

START BIT IS OFF 


LNJ 

SB5,<TDER 



DC 

Z * 0312 * 

START LIGHT OFF 

$A 

lnj 

SB5,<TDER 

HEADS LOADED j NO START 


DC 

Z•0314• 

T0300C 

LnJ 

$B5 * <ISTAT1 

GET STATUS WOkD 1 


Lb 

<STaT 1 * =Z * ti• 

TEST READY blf 


bbT 

>T 0300C 

WAIT TO CLEAR 


LNJ 

SB5,<T1SEC 

TIMEOUT 


DC 

25 

FOR 25 SECS 

S'A 

b 

> + Sb 

LOOP WHILE WAITING 


b 

> + $C 

TIMEOUT FINISHED 

SB 

b 

>-$A 


SC 

LNJ 

$65,<TAGI 

TAG IN 


DC 

Z»D3* 

check heads loaded 


LDH 

$R1 * <TEMPA 

INPUT DATA 


AND 

SR 1 * =Z * 48 • 

TEST BITS 1 6 4 


CMR 

SR 1 * =Z * 48• 


BNt 

> + $C 

1 & 4 ARE SET 


LNJ 

SB5 * <TDER 


DC 

Z * 031 6 * 


SC 

Lb 

<TEi v iPA * = Z •C8 * 

TEST 0*1*64 


bdF 

<T 0300D 

OK* NONE SET 


LNJ 

Sb5 *<TDER 

AT LEAST ONE IS SET 


DC 

Z•03 1 0• 

T0300D 

CALL 

ZVSI.ZVSTC,MSSTR 

DEPRESS START SWITCH 


000776 

03BD 

FbCO 

0003 



CALL 

ZVST *MSTIME 

WITHIN 15 SECS 


03dF 

0380 

0000 

X 






03C1 

0F 80 








03C2 

114E 







UOO777 

03C3 

D380 

0E41 



LNJ 

$05 * <T1SEC 

15 second TIMEOUT 

U 0 0 7 7 o 

03C3 

GOOF 




DC 

15 

OUO 77V 

03C6 

OF 80 


T 


b 

> + $A 

TIME THIS PROCESS 

UUO786 

U3C 7 

D380 

0C85 



LNJ 

$65 *<TDER 

000781 

03C4 

0318 




DC 

Z•0318• 

TIMEOUT ON START BIT 

000 782 

03CA 

D380 

UC50 


SA 

LNJ 

SB5 * <TAGI 

0 0 0 7 8 3 

03CC 

D300 




DC 

Z*D3» 
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OUO 784 

U3CD 

8280 

0FE7 



Lb 

<TEhPA,=Z»8* 

TEST START BIT 


03CF 

8000 






u U U 7 8 5 

03U0 

05F A 




bbF 

>-$A 

KEEP TRYING 

GuU 7 bo 

0301 

0005 




RTCF 


OK-TURN CLOCK OFF 

0 0 0 7 8 7 

03U2 

0380 

0E4 1 


T0300E 

LNJ 

$B5,<T1SEC 

RESET CLOCK... 

UUU 76o 

03u4 

0023 




bo 

35 

...TO 35 SECS 

0UU789 

03D5 

0F80 


1 


b 

> + $b 

THEN DO THIS 

UuO 79u 

U3l>o 

0380 

0C85 



LfMJ 

$B5 *<TDER 

U 0 0 7 9 1 

0308 

0320 




DO 

Z * 0320 * 

SPEED BIT TIMEOUT 

UUO 792 

03U9 

0380 

0C50 


Sb 

lnj 

$B5,<TAGI 

UOU793 

O30b 

0300 

- 



bO 

Z * D3 1 


UOO 7 94 

03UL 

62bO 

0FE7 



Lb 

<TEmPA * =Z * 4 • 

TEST SPEED ACTIVE 


03UE 

4000 






00079b 

03uF 

U5F A 




bbF 

>-$b 

KEEP TRYING 

UUO796 

0 3t0 

0005 




RTCF 


OK-TURN THE CLOCK OFF 

000797 

U3L1 

0380 

0E38 


T0300F 

LlMJ 

$65,<TIM£ 

DELAY FOR... 

U0079O 

03L3 

0001 




bo 

1 

...1 MILLISECOND 

U 0 0 7 9 9 

U3L4 

0380 

0C50 



LlMJ 

SB5 * <TAGI 

UUObOU 

03Eo 

0300 




DC 

Z • D3 * 


UOObOi 

031 7 

8280 

OF E 7 



Lb 

<TEMPA»=2 * 2 * 

TEST BIT 2 


03L9 

2000 







UUOoO^ 

031A 

U58U 

0406 



DbF 

<T0300G 

NOT ACTIVE 

UuOb03 

03EL 

0380 

UC50 



LlMJ 

$B5 * < TAG I 

UUO8O4 

03Eb 

U200 




bo 

Z»D2* 

DIAGNOSTIC STATUS 

000805 

03 LF 

8280 

0FE7 



Lb . 

<TEMPA< = 2 1 FE * 


03F 1 

FEOo 






UUOoOo 

03F2 

0580 


T 


bbF 

> + $C 


0 U 0 o 0 7 

03F3 

0380 

0046 



LlMJ 

Sb5 *<SBIS 

PRINT •SB•/'IS* 

UUUoOo 

03Fb 

0001 




DC 

X«Ol * 

DONT CARE BIT 

OOU809 

U3Fb 

0380 

0C85 



LlMJ 

$B5 *<TDER 

UUUb1U 

03Fb 

0322 




UO 

2 * 0322 * 


OUUo11 

03F9 

0380 

0050 


SO 

LiMJ 

SB5 * <TAGI 


UuUo lc 

03 Fb 

0300 




bO 

Z*D3* 


OOUo13 

03FC 

8280 

0FE7 



Lb 

<TEmPA»=Z*1 * 

TEST BIT 3 > 


03F L 

1000 






UUOolA 

0 3F F 

0580 


T 


bbF 

> + $b 


UUUb15 

U40U 

0380 

0085 



LlMJ 

SB5 »<T DER 


UUUblo 

0402 

0324 




bC 

Z 1 0324 * 

BIT 3 IS ON 

U u U b 1 7 

04 0 b 

0380 

0085 


SD 

LlMJ 

SB5 * <TDER 

UUUb1o 

0405 

0326 




bo 

2*0326* 

BIT 3 OFF 

UUUb 1 9 

0406 

0380 

0E38 


T0300G 

LNJ 

$65,<TIME 

DELAY... 

UUOo2u 

0408 

0019 




bO 

25 

...FOR 25 MS 

000o21 

0409 

038U 

0050 



LNJ 

$65,<TAGI 

0G0b24 

040b 

0300 




DC 

Z*D3» 


000623 

0400 

8280 

0FE7 



Lb 

<TEMPA,=Z*08* 

TEST HEADS LOADED 


04UL 

0800 






OuUo2h 

040F 

0500 

041E 



BbT 

<T0300H 


UUUb2 b 

0411 

0380 

0050 



LlMJ 

$B5 »<TAGI 


OuObZo 

0413 

0200 




DC 

2*02* 

DIAGNOSTIC STATUS 

UUUb27 

04 1 4 

8280 

OF 17 



Lb 

<TEMPA *=Z•08 * 

TEST FOR VOLTAGE FAULT 


0416 

0800 






0U0b2b 

0417 

0580 


! 


bBF 

> + $L 


uU0o29 

041 d 

0380 

UObb 



LNJ 

SB5 *<TDER 


0UUb3u 

04 1 A 

0328 




DC 

2*0328* 

VOLTAGE FAULT 

UUUb 3 1 

041 b 

D3bO 

0085 


$L 

LNJ 

SB51<TDER 

UUUb3c 

0410 

0330 




DC 

2*0330* 

NO VOLTAGE FAuLT 

UUOo 3 3 

04 11 

0380 

0E3E 


T0300H 

LNJ 

$B5 »<TIONS 


000834 

0420 

0014 




DO 

20 

200 MS TIMEOUT 

UOUb3b 

0421 

OF 80 


7 


b 

> + $A 

GO HERE WHILE TIMING 

0OUo36 

042 2 

OF 80 


r 


b 

> + $b 

TIMEOUT 

uOUo 37 

0423 

0380 

0050 


SA 

LNJ 

SB5♦ <T AG I 

U0Ub3b 

042b 

0300 




DO 

2 * D3 * 


OOUo 39 

0426 

8280 

UFE7 



Lb 

<TEmPA,=Z*2* 

LOAD-RTZ BIT 


042b 

2000 






0U0b4U 

0429 

0 5 F A 




bbF 

V 

t 

> 

KEEP TRYING 

0 U U b 4 1 

042A 

0005 




R7CF 


OK-TURN CLOCK OFF 

U0Ub48 

042d 

0F7F 




NUP 

>$-l 

XXXXXX 

000o4b 

042C 

OF80 

0460 



b 

<T0300K 

U0Ub44 

04 21_ 

8280 

0FE7 


Sb 

ld 

<TLnPA,=Z*08» 

HEADS LOADED ? 


043U 

0800 







000b45 

0431 

0580 


1 


bbF 

> + $C 


U0U846 

0432 

8280 

0FE7 



Lb 

<TEnPA,=Z*20* 

LOAD* ♦ RTZ* 


0434 

2000 





U U 0 b 4 7 

043b 

0580 


1 


bbF 

> + $0 


U0Ub4o 

043b 

0380 

0085 



LNJ 

$B5 * <TDER 


U00b49 

043b 

U332 




DC 

2*0332* 


UOUbbU 

0439 

0380 

0085 


Sb 

LlMJ 

SB5 * <TDER 


UuOob1 

043b 

0 334 




DC 

2*0334* 

HEADS NOT LOAuED 

U 0 U o 5 £ 

043C 

8280 

OFE 7 


SO 

Lb 

<TEmPA,=2* 1 * 

DIBIT ? 


04 3 L 

1000 





000853' 

04 3 F 

0560 


1 


BBF 

>>$b 


UuUbb4 

0440 

0380 

0085 



LNJ 

SB5 *<TDER 


UUUobb 

0442 

0336 




DC 

2*0336* 

DIBIT FAULT 

UUUb5b 

044 3 

0360 

0050 


so 

LNJ 

$B5,<TAGi 


UUUb5 7 

044b 

0200 




DC 

2»D 2* 

DIAGNOSTIC TAu 

UUUobb 

0446 

b280 

0FE7 



Lb 

<TEhPA,=Z*08 » 

TEST VOLTAGE FAULT 


U44b 

0800 






00085V 

0449 

0560 


1 


BbF 

> + $L 


0UOb6U 

044A 

0 380 

U085 



LlMJ 

SB5,<TDER 


0UUb61 

0440 

U33b 




DC 

2*0338* 

VOLTAGE FAULT 

UUU86^ 

U44 b 

0360 

UL4 1 


SE 

LNJ 

SB5 * <T1 SEC 

UU0863 

044F 

0005 




DC 

5 

5 SECOND TIMEOUT 

0U0o64 

0450 

OF 80 


T 

SA 

b 

> ♦ $ D 

WAIT FOR TIMEuUT 

U00b6 b 

045 1 

uF8u 


T 


b 

>♦$0 

TIMEOUT 

00Uo6b 

04 b 2 

uFFE 



Sb 

d 

>-$A 


00086 7 

04 5 3 

0380 

0050 


so 

LNJ 

SB5 *<TAG1 


UUUobb 

0455 

0300 




DO 

2 • D3 • 


00086V 

0456 

8280 

UFE7 



Lb 

<TEmPA*=2*4* 

TEST SPEED BIT 


04 5 b 

4000 






0U0o7U 

0459 

0500 


( 


BbT 

> + $F 


000o7i 

U45A 

0380 

0065 



LNJ 

. $B5,<TDER 


U 0 0 o 7 ^ 

U45C 

0340 




DO 

2 * 0340 * 

SPEED NOT ACTIVE 

UuOo73 

04 5u 

0380 

0065 


SF 

LlMJ 

SB5 ♦ <TDER 

0 0 U o 7 4 

045F 

0342 




DC 

2*0342* 

SPEED ACTIVE 

U 0 0 o 7 b 

0460 

0380 

0L38 


T0300K 

LNJ 

SB5 * <TI ME 

UOOo 7b 

0462 

002C 




bO 

44 

44MS DELAY 

OuOfa77 

U463 

0380 

0E3E 



LNJ 

$85 * <TIONS 


UUUb 7o 

046 5 

0003 




bO 

3 

30 MILLISECS TIMEOUT 

UUUb 79 

04 66 

uF 60 


I 


b 

> + $b 

GO HERE WHILE TIMING 

OUUobU 

046 7 

0360 

U08 5 



LNJ 

SB5 * <TPER 

TIMEOUT 

OUUobl 

0469 

0352 




b 0 

2*0352* 

TIMEOUT ON FI.mL BIT 

UUUobZ 

046 A 

0380 

0050 


Sb 

LNJ 

$B5,<TAGI 

000o83 

0460 

0300 




bC 

2 * D300 * 




,4 >\ 

h, y 














UlLfc S. 

■iDSZ <. • 

ktV 0» 

* STuKAbE 

MODULE 

TOD* Ftb 16 

* 197b 

PAGfc 13 

0uO6b4 

046o» 

b2bU 

0FL7 



Lb 

<TEhPA1=2*02* 

TEST FINE BIT 


G46F 

020U 







u u u b 6 5 

04 /U 

05UU 


T 


bbT 

> + $C 


f UUUu8t> 

04 / 1 

OF F 9 




b 

>**$b 


| UUUo87 

04 u 

U0U5 



SC 

KTCF 


TURN CLOCK OFF 

OUOobc 

04 7 3 

b2bu 

OFF 7 



Lb 

<T EhPA $=2*04* 

TEST SLOPE BIT 


04 /3 

U400 







UUUod9 

04 / 6 

0560 


1 


bbF 

> + $D 


UUUo9U 

047 / 

D360 

U08 5 



LNJ 

3>B5»<TDEk 


0U0b91 

Oh / 9 

U 3 5 4 




OC 

2*0354* 

SLOPE ACTIVE 

UUOoVt 

04 / A 

0360 

Ut36 


$0 

LNJ 

SB5,<TIME 


Uu0d93 

04 7 0 

0014 




Of 

20 

20MS TIME DLY 

Uu0d94 

04 7u 

0360 

0C50 



LIMJ 

3>B5 »<TAGI 


0G0b95 

0 4 7 F 

0 /Ou 




OC 



OUObVd 

04bU 

b 2 bO 

0 F E 7 



Lb 

<TEhPA,=Z*2* 

ON CYL ? 


04dt 

200u 







U u 0 o 9 7 

04b 3 

0500 


1 


bbT 

> + $A 


OU0d9b 

0 4 b 4 

6260 

OFF 7 



Ld 

<TEmPA,=Z* 1 * 

READY ? 


0 4 b 6 

1000 







OuOb 99 

04b / 

050U 


T 


bbT 

> + $t 


UU09 Ou 

04bb 

036U 

0C65 



LimJ 

SB5,<TDEk 


OOOvO i 

04b A 

0344 




OC 

2*0344* 

UNIT NOT READr 

OUO90t 

04bu 

0360 

0C85 


$t 

LIMJ 

SB5,<TDER 


0UU90b 

048U 

0346 




OC 

2*0346* 

READY 6 GNCYL* 

000904 

046k 

6260 

OFF/ 


2>A 

Lb 

< T E ( y T P A»= 2 • 1 * 

READY ? 


0490 

1000 







U U U 9 0 5 

0491 

0500 


T 


bbT 

> ♦ $D 


(JOU 9 O 0 

0492 

0360 

0085 



LimJ 

$B5* <TDEk 


0 0 U 9 0 7 

0494 

0346 




OC 

2*0348* 

UNIT NUT READY 

0UU90o 





$b 

CALL 

ZV$I.ZV$TC,MSSTR 

STOP DEVICE 


0493 

FbCO 

0003 







049 / 

0360 

0000 

X 






0499 

OF 60 








049A 

1120 




~ 



UUU 9 O 9 

049D 

0360 

0C50 


SA 

LNJ 

$B5 * <TAGl 


0 U U 9 i U 

0490 

0700 




OC 

2 * D / • 


0 UU 9 1 1 

04 91 

626U 

OF t 7 



Lb 

<TEMPA»=2*10* 

WAIT FOR RFADf* 


04 AU 

1000 







00U9 1*. 

04A1 

0 5 7 A 




bbT 

>-$A 


00U9 1 3 

04A2 

0360 

0L41 



LNJ 

$B5,<T1SEC 


0U09 14 

04 A4 

000F 




OC 

15 

15 SEC TIMEOUT 

UUU9 1 3 

04 A3 

OF 60 


T 


b 

> + $C 


0UU9 16 

04 Ao 

U3b0 

0C65 



LNJ 

$B5,<TDEk 

timeout fault 

0 U 0 9 1 7 

04 Ab 

0356 




Of 

2*0356* 


000916 

0 4 A 9 

0360 

0C50 


$C 

LNJ 

$B5*<TAGI 


00 u 9 19 

04 Ab 

0000 




OF 

2* DO* 


000*20 

04 Ao 

6260 

OFF/ 



Lb 

<TE» v lPA *=2*4* 

40/80 UR 150/jOO Mrs ? 


04 At 

4000 







000921 

04 AF 

0500 


r 


bbT 

> + $b 


00O92<l 

04bU 

3C06 




LOv 

SR5 ♦ = 6 

6 SECS FOR 40/80 

000923 

04bl 

A67u 

0358 



LOk 

$R2 * =Z * 0358• 

DICT ENTRY FUR 40/80 

000929 

04b3 

OF 60 


T 


b 

> + $t 


000923 

0404 

5C0b 



3,0 

LOV 

$R5»=11 

11 SECS FOR 1^0/300 

0 0 0 9 2 0 

04b3 

Ab 70 

0362 



Luk 

$R2,52*0362* 

DICT ENTRY FOK 150/300 

I*'"' 0 U 0 9 2 7 

040 / 

6255 



St 

NtG 

= $R5 

COUNTER FOR 1 SEC TIMFR 

| 00092o 

04OC 

AFOG 

U4CF 



STk 

$R2 *<T0300J 

STORE DICT ENiRY 

I 000929 

040A 

036U 

0C50 


$F 

LNJ 

SB5,<TAGI 


v OUO 9 3u 

04oO 

0300 




DC 

2 * D3 ♦ 


00093 1 

04dO 

6260 

OF F7 



Lb 

<TEl v iPA ♦ =2 • 8 • 

TEST START BIT 


04bF 

600u 







0009 3<i 

U4CU 

057A 




bbT 

>-$F 

WAIT FUR IT To DROP 

000933 

04 C1 

0005 




RTCF 


OK TURN CLOCK OFF 

0u0939 

04Ct 

0360 

013 8 


$A 

LimJ 

3,65,<T IME 


000933 

04C4 

03t6 




OC 

1000 

DELAY 1 SEC 

000936 

0403 

5 7 F b 




bINC 

$R5*>-$A 

LOOP FOR 6/11 TIMES 

00093 / 

0406 

0360 

0C50 



LimJ 

3>B5,<TAG1 


00093c 

040b 

0300 




OC 

2»D3* 


000939 

0409 

6260 

OFF/ 



Lb 

<TEhPA♦=Z•4' 

TEST SPEED 


0400 

4000 







00094U 

0400 

056U 


T 


bbF 

> + $o 


000941 

040U 

03bU 

0C8 5 



Lnj 

$fa5 »< TDER 


00O94t 

G4CF 

OOUU 



T0300J 

OC 

0 

DICTIONARY GOtS IN HERE 

000943 





SD 

CALL 

2V$T•2V$TC,MSSTR 

START DEVICE FOR NfxT TEST 


0400 

FbCO 

0003 







040<i 

0360 

0000 

X 






0 4 04 

OF 60 








04U3 

1120 







0U0944 

0406 

0360 

0F12 


SB 

LIMJ 

$B5♦<I ST AT 1 

GET STATUS WGkD I 

000943 

0406 

6260 

0FF5 



Lb 

<STAT1»= 2•8• 

TEST READY 


04lM 

6000 







000946 

04Dt3 

05 F b 




bbF 

>-$b 

WAIT FUR READY 

000947 

0400 

0360 

OCDU 


$C 

LimJ 

a,B5,<TDTE 


00094b 

04bt 

0300 




DC 

2*0300*' 

END TEST 0300 

000949 





* 




000930 





* 




000931 





* 




00093^ 





*********** ** ************ ************************************************ 

000933 





* TEST 

0500 

DYNAMIC RT2 TEST 


000934 





* 




U UU V 0 0 









00095b 

04DF 

6 700 

0FC2 


T 0500 

CL 

<FLaf» 


000937 

04t 1 

6700 

uFC 1 



CL 

<ERhL 

CLEAR ERR FLAg 

00093b 

0413 

9870 

0500 



LOR 

$Rl$52*0500* 

LOAD TEST NUMdER 

000959 

0403 

9 FOG 

OFF b 



STk 

3>R 1 * <TEST 


00096U 

0417 

0360 

0C60 



LNJ 

SB5 * <TD5T 

•START TEST* 

000961 

04L9 

0380 

0C50 



LNJ 

$B5♦<TACI 


000964 

04t0 

0700 




OC 

2 ' D 7 • 


000963 

04ti0 

8260 

OFL 7 



Lb 

<TEmPA *52*01* 

check diagnostic bit 


04Et 

0100 







000964 

C4tF 

0580 

04 FF 



bbF 

<T0500A 


OU0963 

04F1 

0380 

0C50 



LNJ 

4B5 * <T AG I 


000966 

04F 3 

0200 




DC 

2 * D2 • 


000967 

04F4 

8260 

OF 17 



Lb 

<TEMPA*5Z*FC* 

CHECK FAULT biTS 


04h 6 

FCOO 







00096b 

04F 7 

0580 

04 FF 



bbF 

<T0500A 

NONE ARE SET 

000969 

04 F 9 

0360 

0D46 



LNJ 

*B5,<SBiS 

GET SB/1S DATA 

., 0009 70 

04F b 

0003 




DC 

X'Oi* 

DONT CARE MASK 

1 000971 

04FO 

0360 

0C85 



LNJ 

SB5 * <TDER 


I 000974 

O 4 F t 

0506 




DC 

2*0506* 

CANT CLEAR DIaG BIt 

0009 7 3 

04 F F 

6260 

OFF 7 


T0500A 

Lb 

<TEMPA,5Z*l* 

TEST READY bli 


0501 

1000 







000974 

050t 

0500 

052D 



bbT 

<T0500b 

AOK-SO FAR 

000973 

0504 

0360 

0C50 



LNJ 

SB5 *<TAGI 
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000976 

0306 

D300 




DC 

Z * D3 * 

000977 

0307 

6260 

OF E7 



Lb 

<TEmPA,=Z*8* 


0309 

8000 






000976 

030A 

0500 


T 


BBT 

> + $A 

000979 

030B 

0380 

0C85 



Lnj 

$B5 * <TDER 

000980 

0300 

0510 




DC 

Z * 0510 * 

000981 

03UL 

6280 

uFE7 


$A 

Lb 

<TEmPA, = Z* p 


0310 

1000 






00098c 

0311 

0580 


T 


BBF 

> + $d 

000983 

0512 

D3bO 

0C85 



LNJ 

$B5 *<TDER 

00098* 

0514 

0512 




DC 

Z * 0512 • 

000983 

0515 

8280 

OFE 7 


SB 

LB 

<TEmPA*=Z*4» 


0317 

4000 






000986 

0518 

0500 


r 


BBT 

> + $C 

000987 

05 1 v 

D360 

OCfa 5 



LNJ 

$65,<TDER 

00098b 

03 IB 

0514 




DC 

Z*0514» 

000989 

03 1C 

8260 

0FL7 


SC 

Lb 

<TEMPA,=Z*08* 


05 IE 

0600 






000990 

05 IF 

U500 


1 


BBT 

> + $0 

000991 

0320 

D360 

UC65 



LNJ 

$B5 *<TDER 

00099c 

0322 

0516 




DC 

Z * 0516• 

000993 

0323 

6280 

OF E7 


so 

Lb 

<TEMPA,sZ«2» 


0525 

2000 






000994 

0526 

0500 


T 


bbT 

> + $6 

000993 

0527 

D380 

0C85 



LNJ 

SB5 * <TDER 

000996 

0529 

0516 




DC 

2*0518* 

000997 

052 A 

D380 

0C85 


$L 

LNJ 

$B5 *<TDER 

000996 

032C 

0520 




DC 

Z * 0520• 

000999 

0520 

D380 

0C52 


T0500B 

LNJ 

$B5,<TAG0 

001000 

U32F 

0260 




DC 

Z»D280» 

001001 

053u 

D380 

UC50 



LNJ 

SB5 * <TAGI 

OOluOz 

0532 

D300 




DC 

Z * D3 ’ 

001003 

0533 

6280 

0FE7 



Lb 

<TEMPA *52*2* 


0533 

2000 






00100* 

0536 

0580 


T 


BbF 

> + $A 

001003 

0537 

D380 

0C85 



LNJ 

$B5 *<TDER 

001006 

0539 

0522 




DC 

Z 1 0522 * 

001007 

05 3 A 

0380 

0C50 


$A 

LNJ 

$B5 *<TAG1 

00100b 

053C 

D70G 




DC 

Z»D7» 

001009 

063 0 

8280 

0 P E 7 



Lb 

<TEmPA*-2*2* 


053F 

2000 






001010 

0340 

0580 


T 


BbF 

> + $b 

00101 i 

0541 

D360 

0C85 



LNJ 

$B5*<TDER 

00101c 

0543 

0526 




DC 

Z • 0526• 

001013 

0344 

0380 

0E3E 


SB 

LNJ 

$65 $ <T10MS 

UU1014 

0 546 

0028 




DC 

40 

001013 

0 34 7 

0F64 




B 

>T0500C 

UUlulb 

0546 

0360 

UC85 



LNJ 

$B5 *<TDER 

OUiUl 7 

054A 

0546 




DC 

Z • 0546• 

0(J 10 1 6 

U54o 

0380 

0C5U 


T0500C 

LNJ 

$65 *<TAGI 

001019 

0540 

D3UU 




DC 

Z»D3* 

OUlCZu 

U34L 

8280 

UFE7 



Lb 

<TEmPA,=2*Q2* 


0550 

0200 






001021 

0331 

05F A 




BbF 

>T0500C 

00102c 

0352 

0005 




KTCF 


001023 

0553 

8260 

UFE7 



Lb 

<TEmPA * =2•04• 


0535 

0400 






001024 

0556 

0560 


T 


BbF 

> + $C 

001023 

05 5 7 

0360 

OC85 



LNJ 

$B5*<TDER 

0U1U26 

0539 

0546 




DC 

Z * 0548 • 

001O27 

05 3 A 

0360 

0E36 


SC 

LNJ 

$B5*<T1ME 

00102b 

035C 

0019 




DC 

25 

001029 

05 5o 

0380 

0C50 



lnj 

$B5 *<T AGI 

001U30 

0 3 5F 

0700 




DC 

Z»D7» 

001031 

0560 

6280 

0FE7 



Lb 

<T EmPA * =Z * 2 * 


0362 

2000 






001U3c 

U 5 6 3 

0500 

0572 



bbT 

< T0500G 

Ou 1033 

0365 

0380 

0C50 



LNJ 

$B5 *<TAGI 

001034 

0 56 7 

0300 




DC 

Z»D3* 

001033 

0566 

8260 

0FE7 



Lb 

<TEmPA,=2*2* 


0 5 6 A 

2000 






001036 

0 560 

0500 


T 


BBT 

> + $C 

001037 

056C 

0360 

0C65 



LNJ 

$85,<TDER 

00103b 

0 56 6 

0526 




DC 

Z • 0528 * 

001039 

036F 

0380 

0C85 


SC 

LNJ 

$65,<TDER 

00 I04u 

03 7 1 

0530 




DC 

Z •0530* 

001041 

0 5 72 

0380 

0C52 


T0500G 

LNJ 

$B5 * <TAGO 

001U4c 

0574 

0260 




DC 

Z * D^BO • 

001U43 

0575 

0360 

0L38 



LNJ 

$B5,<T1ME 

001044 

03 77 

000 7 




DC 

7 

001043 

05 76 

0380 

0C50 



LNJ 

$ B 5 * < T AGI’ 

001U4b 

0 5 7 A 

0700 




DC 

Z»D7* 

0 0 1U 4 7 

05 7b 

6280 

OF E7 



LB 

<TEMPA**Z*2* 


0570 

2000 






0010*6 

03 7E 

0580 

059E 



BbF 

<T0500D 

001U49 

0360 

8280 

OFE 7 



Lb 

<TEMPA*sZ»Oi* 


0582 

0100 






CO 105u 

0583 

0500 


T 


bbT 

> + $A 

001031 

0584 

6280 

OF E7 



Lb 

<TEMPA,*2*2* 


0566 

2000 






00103c 

0 58 7 

0560 


r 


bBF 

>♦$0 

001U53 

0366 

0360 

0C8 5 



LNJ 

$B5 *<TDER 

001034 

0 38 A 

0536 




DC 

Z * 0536 1 

00 1U53 

0580 

0360 

0C8 5 


SO 

LNJ 

$65,<TDER 

001036 

0580 

0540 




DC 

Z *0540 * 

Ou iu57 

038L 

0360 

0C5U 


SA 

LNJ 

$B5 *<TAGI 

001U38 

0590 

0300 




DC 

Z»D3* 

uO1039 

0591 

8260 

OFE 7 



Lb 

<TEmPA*=2*FE* 


0593 

FEOO 






Ou1U6U 

u 5 94 

0580 


T 


BBF 

> + $b 

001u61 

0393 

0380 

0046 



LNJ 

$B5 *<SBlS 

00lu6c 

059 7 

0001 




DC 

x*oi • 

001063 

0396 

0380 

0C85 



LNJ 

$B5 *<TDER 

OU1064 

039A 

0544 




DC 

Z * 0544 * 

001063 

0590 

0360 

0C85 


SB 

LNJ 

$B5* <TDER 

U01U66 

0590 

0542 




DC 

Z * 0542 • 

001u67 

059E 

0380 

0C50 


T0500D 

LNJ 

$B5 *<TAGI 

001U6b 

03 AO 

0300 




DC 

Z*D3* 

00lu69 

0 5 A1 

8280 

UFL7 



Lb 

<TEMPA * = Z * 2• 


0 3 A3 

2000 






0 0 10 7 U 

U5A4 

0580 


T 


bBF 

> + $C 

OU1U71 

0 3 A3 

0360 

OC65 



LNJ 

$B5*<TDER 

001U 7c 

0 3 A7 

0532 




DC 

4*0532* 


TEST START BIT 
OK 

NO START BIT 
TEST DIBIT 

OK 

DIBIT FAULT 
TEST SPEED BIT 

OK 

TEST HEADS LOADED 


HEADS NOT LOADED 
TEST BIT 2 


LOAD/RTZ ACTIVE 

TAG OUT 
• RT2 

TEST BIT 2 


BIT 2 OFF AFTtR I/O CMNO 
TEST ON CYL BIT 


ON CYLINDER AFTER RTZ 
CALL MILLISEC TIMER 
400 MILLISECOND TlMFOUT 

while timing 

FINE BIT TIMEOUT 


TEST FINE BIT 

WAIT FOR IT 
TURN OFF CLOCK 
TEST SLOPE BIT 


SLOPE SET 
25MS TIMEOUT 


ON CYL ? 

TIMEOUT EXIT 
BIT 2 


NO SEEK COMPL AND BIT 2 LOW 

NO SEEK COMPL WIT BIT 2 HIGH 

TAGOUT 

RTZ 

WAIT 7 MlLLIStCS 
ON CYLINDER ? 

DIAGNOSTIC BII ? 


on cyl. not Cleared 


GET SB/IS DATA 
D0NT CARE MASK 

DIAGNOSTIC BIT SET 

DIAG STATUS AND NO FAULT BITS 

BIT 2 ? 


BIT 2 RESET TOO SOqn 



0 

'i, „y 
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UUiU7j 

U3MB 

9870 

0005 


SC 

LDR 

SRI 1 = 5 

SET 5 MS TIME DELAY 

UU 1 u 1H 

03AA 

8 2 b 0 

UFC4 



Ld 

<IDtN * = Z'4' 

19 SURFACE ? 


0 5 AL 

4000 







% UU1U73 

0 3al> 

05 BO 


i 


bbF 

> + Su 

NO 

■ UU1U 76 

05AL 

9A ?0 

U 002 



ADD 

SRU = 2 

MAKE 7MS FOR 19 SURFACE 

Oulu ?1 

05bu 

9F00 

05B4 


$D 

STk 

SRI,<T0500E 


OU 1u 7b 

0502 

0360 

0138 



L14 J 

SB5 »<TIMb 


UU1U79 

0504 

0000 



T0500E 

DL 

0 

FILL IN MlLLlsECS 

uulOBu 

0503 

0380 

0C50 



LNJ 

SB5,<TAGI 


0U1U81 

0507 

0300 




Dt 

Z • D3 1 


UUiuB^ 

0 3 OB 

6280 

UFL7 



Lb 

<TEmPA,=Z* 2 * 

BIT 2 ? 


050a 

2000 







OU1U&3 

03oo 

0500 


1 


ooT 

> + sl 


UG1064 

05OC 

0380 

0 C 8 5 



LNJ 

$65,<TDEk 


UOlu83 

0 5ot 

0534 




DC 

2*0334' 

ON CYL NOT REoET By RjZ 

UOIU 80 

0 30h 

9870 

UOO A 


St 

LDK 

Ski * = 10 

SET 10 MS DELAY 

UUlUB 1 

03C1 

8280 

OF C4 



Lo 

<IDtN *-Z'4 * 

19 SURFACE ? 


0 5C3 

4000 







UUiUBo 

0 5 0.4 

0380 


i 


BbF 

>*SF 

NO 

0U1U89 

05C3 

9A70 

0003 



ADD 

Ski, = 3 

MAKE 13MS FOR 19 SyRF. 

Uu1U9u 

05 L 7 

9 F 00 

u5Cb 


S F 

STk 

SRI,<T0500F 


UU1U91 

0509 

0380 

Ot38 



L»\»J 

SB5,<TIME 

DELAY TIMER 

001094 

0 5 Co 

0000 



T0500F 

DC 

0 

TIME DELAY 

UU109 3 

05CC 

0380 

0C50 



L <4 J 

$B5,<TAGI 


OUiU94 

03Ct 

0700 




DC 

Z'D7* 


UU lU95 

0 3CF 

82bU 

OF E7 



Lo 

<TEmPA $ = Z * 2• 

ON CYLINDER ? 


0501 

2000 







OU1u9o 

0302 

U5UU 


T 


bbT 

> + $A 


UUlu97 

0303 

0380 

0 C 6 5 



LNJ 

$B5 *<TDEk 


UU 109 5 

05D3 

053b 




DL 

2*0336* 

ON CYL TIMEOUT 

001099 

030b 

0360 

OCDD 


S A 

LmJ 

Sb5,<TDTE 

END TEST 0500 

UU11UU 

0306 

0500 




DC 

2'0 300' 

END TEST 0500 

U 01101 





* 




UOIIO 4 





* 




001103 





********************************************************************** 

001104 





* 




001103 





* VEST 

0600 



U 01 106 





* 




001107 





* 




001109 





* TEST 

OoO 1 

OFFSET*2ER0 TRACK AND 

ILLEGAL SEEKS 

001 i lu 





* 




0011 11 





* 




00111 * 

0309 

6700 

UFC2 


T0601 

CL 

<FLA6 


001113 

0 5 Oo 

8 700 

OF Cl 



CL 

< E R F L 


0011 14 

0500 

9870 

0601 



LDK 

SRI*=2*0601» 

LOAD TEST NUMdER 

001113 

0501- 

9 F 0 0 

OFEb 



STk 

Ski♦<TEST 


001116 

0311 

0380 

0C60 



LNJ 

SB5 * < TDST 

•START TEST* 

001117 

05t3 

0380 

OC27 



LNJ 

SB5 «< FRRC 

FAULT RESET/RtADY CHECK 

001116 

0503 

5C0 1 




LDV 

SR5 »= 1 

SET LOOP COUNT = 2 

001119 

05tb 

03CO 

0660 


T 0 6 01A 

LNJ 

SB5 * TAGO 

TAG OUT _ 

U0112u 

0506 

0120 




DC 

2'D120' 

SET OFFSET * 

001121 

0 519 

0360 

0C50 


T 0601B 

LNJ 

SB5 1 <TAGI 


UO1 1 2 * 

05 oo 

0700 




DC 

2 • D 7 ' 


M . 001123 

030C 

8280 

0FE7 



Lb 

<TEMPA» = 2•20' 

ON CYL ? 

d 

0 3 OL 

200o 







I 001124 

050F 

0580 


T 


bBF 

>*SA 

NO 

\ 001123 

0560 

8900 

OFC 1 



LOT 

<ERFL * = X'02• 

SET CONTINUE FLAG 


05F2 

O002 







001126 

0 5 F 3 

0 380 

0C85 



LNJ 

SB5,<TDER 


00112 7 

03F3 

0612 




DC 

2 * Oo 12 • 

ON CYL 

001126 

05F6 

0380 

0C50 


5>A 

LNJ 

SB5 »<TAGI 


uui 129 

03F B 

0700 




DC 

2 ' D ? • 


00113U 

05F9 

8260 

0FE7 



Lb 

<TEmPA,=Z*02* 

OFFSET ? 


0 5Fo 

0200 







001131 

05FC 

0500 


T 


BbT 

> + $o 

YES 

00113* 

05Fo 

0360 

0C81 



LNJ 

SB5,<TDER1 


001133 

0 5 F F 

0614 




DC 

2*0614* 

NO OFFSET 

001134 

ObOO 

8280 

0FE7 


SB 

LB 

<TEmPA,=Z»20* 

ON CYL ? 


060* 

2000 







001133 

0603 

0580 


T 


BbF 

> + Sh 

NO 

00113b 

0604 

0360 

0C8 1 



LNJ 

SB5,<TDER1 


00113? 

O 6 O 0 

0616 




DC 

2*0616* 

ONCYL 

001136 

ObU 7 

6800 

OF Cl 


SH 

LoF 

<ERFLt=X»02* 

CLEAR CONT. FLAG 


0609 

0002 







001139 

ObUM 

0560 


T 


bbF 

>*$c 

NORMAL PATH 

001140 

060b 

0380 

OCDD 



LNJ 

SB5,<TDTE 


001141 

0600 

0601 




DC 

2*0601 ' 


001 14'2 

0600 

0F60 

0100 



b 

<START 


001143 

0610 

0380 

0E38 


SC 

LNJ 

SB5 * <TIME 


001144 

0612 

0003 




DC 

3 

WAIT 3 MILLISbCS 

001143 

0613 

0380 

0C50 



LNJ 

SB5,<TAGI 


00114b 

0613 

0700 




DC 

2 • D7 * 


001147 

06 16 

8280 

0FE7 



Lb 

<TEhPA,=Z»02* 

OFFSET ? 


06 IB 

0200 







001146 

0619 

0500 


r 


bbT 

> + $D 

YES 

001149 

06 1A 

0360 

OC85 



LNJ 

SB5,<TDEk 


001150 

OblC 

0620 




DC 

2 *0620* 

NO OFFSET 

001151 

0610 

8260 

0FE7 


SD 

Lb 

<TEmPA,=Z*20* 

ON CYL ? 


06 IF 

2000 







001152 

0620 

0500 


T 


bbT 

. > ♦ $L 

YES 

001153 

0621 

0380 

0C65 



LNJ 

SB5,<TDER 


001154 

0623 

0622 




DC 

2 *0622* 

NOT ON CYL 

001153 

0624 

5700 

0000 

T 

SE 

bDEC 

$R5 * < *$G 

COUNT 52? 

001156 

0626 

OFBO 

063A 



b 

<T0601C 

LEAVE LOOP 

001157 

0626 

0380 

0C52 


SC 

LNJ 

SB5,<TAG0 

NO 

001156 

062 A 

0206 




DC 

2 ' D208 * 

CLR ERROR RECUV LAtcHFS 

001159 

0620 

0380 

0C50 



LNJ 

$B5,<TAGI 


001160 

0620 

0700 




DC 

2 ' D 7 ' 


001161 

0620 

6280 

0FE7 



LB 

<TEMPA,=2*02* 

OFFSET ? 


0630 

0200 







001162 

Ob31 

0560 


T 


BBF 

> + $F 

NO 

001163 

0632 

0360 

0C85 



LNJ 

SB5,<TDER 


001164 

0634 

0624 




DC 

2*0624* 

OFFSET ACTIVE 

001165 

0635 

0380 

0C52 


SF 

LNJ 

SB5,<TAG0 


001166 

0637 

0110 




DC 

Z'DllO* 

SET OFFSET- 

001167 

063B 

OF 60 

05E9 



b 

<T0601B 

REPEAT with - OFFSFT 

M 00116B 

063A 

0F7F 



T0601C 

NOP 

>$-i 


■ 001169 

063b 

0360 

0DC3 



LNJ 

SB5 *<SKCYS 

SEEK „ 

V > 001170 

0630 

0000 




DC 

0 

CYL ZERO 

^ 001171 

0630 

8180 

0FE7 


SA 

1ULD 

<TEMPA,<I0READ,<D-1 

SETUP INPUT TASK 


0640 

0000 

11F6 







0642 

0000 

OFAF 
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001172 

0644 

07FA 




BIOF 

>-$A 


OU1173 

0645 

8070 

0600 


SB 

10 

= Z»06* <<OTTAS< 

TAG 6 


0647 

0000 

11F0 






001174 

0649 

07FC 




blOF 

>-$D 


001176 

064A 

0380 

OF 12 



LNJ 

$B5 < <I ST AT 1 

STALL 

00117b 

064C 

8280 

0FE7 



Lb 

<TEhPA<=Z«02* 

OFFSET ? 


064E 

0200 







001177 

064F 

0580 


T 


BdF 

> + $A 

NO 

00117b 

0650 

0380 

0C85 



LNJ 

$B5,<TDER 


001179 

0652 

0626 




DC 

2 * Ob2 6 * 

OFFSET STILL aCTIVF 

001180 

0653 

8280 

0FE7- 


$A 

LB 

<TEMPA,sZ*20* 

ON CYL ? 


0653 

2000 







001181 

065b 

0500 


T 


bbT 

>+$c 

YES 

OU118 £ 

0637 

0380 

OC85 



LNJ 

SB5,<TDER 


001183 

0659 

0632 




DC 

2*0632* 

ON CYL NOT ACTIVE 

001184 

065 A 

0380 

0C52 


$C 

LNJ 

$B5< <T AGO 

SET OFFSET* 

001183 

065C 

0120 




DC 

2 * D120 * 

00118b 

0650 

0380 

0C50 



LNJ 

$B5,<TAGI 


001187 

065 F 

0700 




OC 

2*D7* 

CONTROL TAG 

Ou118b 

0660 

8280 

0FE7 



LB 

<TEMPA»*Z•02• 

OFFSET ? 


0662 

0200 







001189 

0663 

0500 


T 


BbT 

>♦$0 


001190 

0664 

0380 

0C85 



LNJ 

SB5,<TDER 

OFFSET NOT ACTIVE 

001191 

0 666 

0634 




OC 

2*0634* 

001192 

0667 

0380 

OC52 


$0 

LNJ 

$B5,<TAGQ 


0oU93 

0669 

0280 




DC 

Z*D280» 

RTZ 

001194 

066A 

0380 

0E38 



LNJ 

SB5 < <TIME 

DELAY 

00119S 

066C 

0004 




DC 

4 

4MS 

001196 

0660 

0380 

0C50 



LNJ 

SB5,<TAGI 


001197 

06bF 

0700 




OC 

2*07* 

CONTROL TAG 

001198 

0670 

8280 

0 F E 7 



Lb 

<TEMPA < = 2 * 02• 

OFFSET ? 


0672 

0200 







001199 

0 6 73 

0580 


T 


BBF 

> ♦ $A 


OOl^Oo 

0674 

03C0 

0610 



LNJ 

SB5,T0ER 

OFFSET STILL mCTIVe 

001^01 

067b 

0636 




OC 

2*0636* 

00120c 

Ob7 7 

0380 

0L38 


$A 

LNJ 

SB5,<TIME 

001203 

06 1 9 

01C2 




DC 

450 

450 MS DELAY 

0012 04 

06 7 A 

0380 

0DC3 



LNJ 

$B5,<SKCYS 

SEEK, 

001c03 

G67C 

0337 




DC 

823 

CYL 823 (ILLEGAL) 

001206 

06 7 U 

8180 

UFE7 


3>F 

I OLD 

<TEMPA<<IGREAD,<D-] 

. SETUP FOR INPUT 


06 7F 

0000 

11 Fb 







06 81 

0000 

OFAF 






001207 

0683 

07F A 




BIOF 

>-$F 


GOicOb 

0684 

8070 

0600 


3>A 

10 

= Z»06* ,<0TTAS<. 

TAG 6 


0686 

0000 

11F0 






OU1^ 09 

068b 

07 F C 




B1UF 

>-$A 


001210 

0689 

8000 

0FE8 


$b 

lu 

<TEMPB<<INSTW1 

STALL 


068d 

0000 

1204 






001211 

0680 

07FC 




BIOF 

>-$b 

CHECK DIAGNOSTIC 

001cl2 

0 6 8 d. 

8280 

0 F E 7 



Lb 

<T EMPA <=2*01* 


0o9u 

0100 







001213 

0691 

0500 


T 


BBT 

>♦$ j 


GO 12 1 4 

0692 

0380 

0C8 5 



LNJ 

$B5 <<TDER 

DIAG NOT ACTIVE 

001213 

0694 

0640 




DC 

2*0640* 

00l2lb 

0695 

0380 

0C50 



LNJ 

$B5 <<TAGI 


0ul2l i 

069 7 

0600 




DC 

2 * 06 * 


OOlclb 

0696 

8280 

0FE7 



Lb 

<TEMPA < =2 * 20 * 

ON CYL ? 


0b9A 

2000 







O 0 I 2 19 

069d 

0500 


7 


bbT 

> + $K 


001220 

069C 

0380 

0C83 



LNJ 

*B5,<TDEK 


001221 

069L 

0644 




OC 

2*0644* 

NOT ON CYL 

00122c 

0b9F 

0380 

OC52 


2>K 

LNJ 

$B5 <<TAGG 


001223 

06A1 

0280 




DC 

2*D^80* 

RTZ 

001224 

06A2 

0380 

OCOO 



LNJ 

$B5 <<TDTE 

END TEST 

001223 

00122b 

OoA4 

0601 



* 

DC 

2*0601* 


001227 





* 




001228 





* 




001229 

( i(i 1 y i 





* 

4 r- - 




v l C O L/ 

0O1231 





* 




001232 





* TEST 

0602 

SlNGLt TRACK FWO/REV 

SEEK 

001233 





# 




001234 





* 




001233 

06A3 

8700 

0FC2 


T 0602 

CL 

<flag 


00123b 

0 6 A 7 

8700 

0FC1 



Cl 

<ERFL 

LOAD TEST NUMbER 

001237 

O 6 A 9 

9870 

Ob02 



LOR 

$R1 < = 7 *0602* 

001238 

ObAb 

9F00 

OF Eb 



SIR 

SRI <<TEST 


001239 

06 AO 

0380 

0C6D 



LNJ 

$B5 , <TOST 

•START TEST* 

001240 

06mF 

9680 

1211 



LAb 

$B1<<SA10DV 

PREPARE LV10 RUPT 

001241 

0 6 b 1 

9F80 

ODOA 

X 


ST b 

$81<<ZHISAZ+T0*$AF 

■ . . - 

001c 4c 

06b3 

0380 

OC52 


T 0602A 

LNJ 

$B5,<T AGO 


00 lc43 

0605 

0238 




DC 

2 * D238• 

CLR DIAG<FAULT<ERR RECOVERY 

0012 4*+ 

Obbb 

0380 

0C50 



LNJ 

$B5 <<T AG1 

001243 

06b8 

0700 




DC 

2*07* 

control TAG 

GO 1c 46 

06b9 

8280 

OPE 7 



Lb 

<TEMPA<=2»10* 

UNIT READY ? 


Obbb 

1000 







00124 / 

06bC 

0300 


7 


bbT 

> + $A 


001c 4 b 

ObbO 

0380 

0C85 



LNJ 

$B5 <<TDER 

UNIT NOT READY 

001249 

ObbF 

0606 




DC 

2*0608* 

00 12 3u 

ObCO 

8280 

OF E7 


$A 

Lb 

<TEMPA<=2* 01» 

DI AG CHECK 


0bC2 

0100 







001251 

0bC3 

0580 


7 


bBF 


NO 

001252 

ObC4 

0380 

UC50 



LNJ 

$65 <<T AGI 


001253 

06L6 

0200 




DC 

Z*D2* 

GET DIAG DATA 

001c54 

ObC 7 

0380 

0046 



LNJ 

$B5,<SBIS 

GET IS/SB DATA 

001253 

06C9 

0001 




OC 

X* 1 • 

TEST ALL BITS EXCEPT PROTECT 

001c 3b 

ObCA 

0380 

0C85 



LNJ 

$B5 <<TOER 

001257 

ObCC 

0610 




DC 

2*0610* 

DIAG FAULTS 

00 12 5b 

ObCO 

0380 

0L9 1 


Sb 

LNJ 

$B5< <LV1OSU 

SETUP LV10 RUPT 

001259 

OoCF 

0E82 




DC 

<LV10T1 

TIMING PROCESS 

00126U 

0600 

0380 

0C52 



LNJ 

$B5,<TAGO 

RECALIBRATE 

001261 

O 6 O 2 

0000 




OC 

2*0* 

00 I 262 

0603 

0380 

0E9E 



LNJ 

$B5 <<TIMDE 


001263 

0605 

0190 




OC 

400 

400MS LIMIT 

00 1 < 6*t 

0606 

0F80 


7 


b 

>*$C 


001265 

0607 

0380 

OC83 



LNJ 

$B5 <<TDER 

RTZ TIMEOUT >400MS 

001c 66 

0609 

0646 




DC 

2»0o46• 

001267 

060m 

0380 

0C50 


sc 

LNJ 

$B5,<TAG1 


001c 66 

060L 

0700 




DC 

2*07* 


OOI 269 

0600 

8280 

OF E 7 



Lb 

<TEMPA, = 2 »20• 

ON CYL ? 


06 OF 

2000 







001270 

06E0 

0500 


r 


bbT 

> + $A 
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001271 

0611 

D380 

0C8 5 



LNJ 

$65 *<TDER 

00127c 

06L3 

0648 




DC 

2*0648* 

001273 

06E4 

8280 

OF t7 


$A 

LB 

<TEmPA*=Z*01• 


06t6 

0100 






001 a74 

061 7 

0580 


T 


bBF 

> + $D 

001 a 7 5 

ObEb 

D3b0 

OCfa 5 



LNJ 

$65 *<TDER 

001276 

061A 

0650 




DC 

2 • 0650• 

001277 

06LO 

9870 

0335 


$D 

LDR 

$R 1 * = 821 

00 1 c 7 b 

06 ED 

8280 

OF C4 



LB 

<I DEN * = Z * 8 * 


06EI- 

8000 






00 1 A 7 9 

06F0 

0500 


T 


BBT 

> + $t 

00 1 80 

06F i 

1041 




SOK 

$R 1 * 1 

OOlcbl 

06F2 

9 F 00 

OF AE 


$E 

STR 

$R1 * <CYADMX 

001a8^ 

0 6 F 4 

1C01 




LDV 

$R1 * = 1 

0 0 1 a 8 6 

06F5 

9F00 

OFAD 


T 0b02B 

STR 

$R1 * <CYAD 

00128a 

06F 7 

9 FOO 

0000 

T 


STR 

$Rl *<♦$□ 

001a85 

06F 9 

D360 

0E9 1 



LNJ 

$B5 * <LV10SU 

00128o 

0 6 F 13 

0Eb2 




DC 

<LV10T1 

001a87 

06FC 

8755 




CL 

= $R5 

OUlcbb 

ObF D 

8756 




Cl 

= $Rb 

OOU89 

0 6 F L 

EF 57 




STR 

$R6,=$R7 

00 1 A 90 

ObFF 

2 C07 




LDV 

$R2 * = 7 

001 A 9 1 

0700 

DB80 

070E 



Lad 

$B5 * < T0602D 

00129c 

0702 

OF 60 

ULBD 



STB 

$B5 *<TIMDE5 

001.2 9 3 

0704 

obbo 

0EA5 



LAB 

$B5 *<TIMDE1 

001294 

0706 

OF bO 

0E7F 



STb 

$65 *<TlMb5 

001 a9 5 

0 7Ub 

0380 

0DC6 



LNJ 

$B5 * <SKCYF 

001296 

0 7 U A 

0000 



$D 

DC 

0 

001297 

0 70b 

0380 

0E9E 



LNJ 

$B5 * <TIMDE 

001296 

0 7 0d 

0007 




DC 

7 

001299 

070L 

0 F 80 


T 

T 0 6 0 2 D 

b 

> + $E 

00130U 

070F 

03 80 

0C8 5 



LNJ 

$B5 *<TDER 

001301 

0 7 11 

0652 




DC 

2*0652* 

001302 

0 7 12 

5001 



$E 

CMV 

$R5 * = 1 

001303 

0713 

0F7F 




NUP 

>$-i 

001304 

0714 

0300 


T 

$A 

BG 

> + $E 

001305 

0715 

0380 

0C5U 



Lnj 

$B5*<TAGI 

001bOo 

07 1 7 

0300 




DC 

2 * D3 • 

001307 

0716 

9800 

OFAD 



LbR 

$R 1 * <CYAD 

001306 

0 71A 

82b0 

OFt 7 



LB 

<TEmPA * = 2*04* 


0 7 1C 

0400 






001309 

0 7 1D 

0500 


1 


BBT 

> ■*■ $b 

00 1 3 10 

0 711 

1B80 


T 


BUDD 

$R1*> + $C 

001311 

07 1 F 

OF bO 


1 


b 

> + $u 

001312 

0720 

IbFF 


T 

SB 

dODD 

$Rl♦>*$D 

0U1613 

0 72 1 

03b0 

OC85 


SC 

LNJ 

$65 *<TDER 

001314 

0 723 

0678 




DC 

2*0678* 

001315 

0724 

0380 

UC85 


$D 

Lnj 

$B5 *<TDER 

001316 

0 726 

0680 




DC 

2*0680* 

001317 

0727 

0 380 

0C50 


$E 

LNJ 

$B5 * <TAGI 

0013lo 

0729 

0700 




DC 

2*D7* 

001619 

0 72A 

8280 

OF E7 



Lb 

<TEmPA * =2•20• 


072C 

2000 






001320 

0 7 2D 

0500 


T 


BBT 

> + $E 

001321 

0 7 21 

03 8 0 

UC85 



LNJ 

$B5 *<TDER 

001322 

07 30 

0654 




DC 

2*0654* 

001323 

0731 

8280 

0FE7 


$L 

Lb 

<TEmPA*sZ*01• 


07 33 

0100 






001324 

0734 

0580 


T 


bBF 

> + $F 

001325 

07 3 5 

D3bO 

0C50 



LNJ 

$B5 * <T AG I 

00132c 

0737 

D200 




DC 

2*D2 » 

001327 

0 7 36 

0380 

0D46 



Lnj 

$B5 *<SBIS 

001326 

0 7 3 A 

0001 




DC 

X* l • 

001329 

073b 

0380 

0C85 



LNJ 

$B5 *<TD£R 

001330 

0730 

0656 




DC 

2*0656* 

001331 

073E 

9800 

OFAD 


$F 

LDR 

$R1 * <CYAD 

00133c 

0740 

6280 

0FC2 



Lb 

<FLaG*=X*01• 


0742 

0001 






001333 

0743 

0500 


1 


bb T 

> + $A 

001334 

0744 

8AD1 




INC 

= $R 1 

001335 

0 7 4 5 

9900 

0 F A E 



CMK 

$R1 * <CYADMX 

00133c 

074 7 

0380 

06F 5 



BLE 

<T0602B 

001337 

0749 

8900 

0FC2 



LBT 

<FLaG * = X•01 * 


0 7 4b 

0001 






00133b 

074C 

1EFF 




ADV 

$R1 *=-l 

001339 

0 74D 

1700 

06 F 5 


$A 

BDEC 

$R1*<T0602B 

001340 

0 74F 

0380 

OCDD 


T0602C 

LNJ 

$B5 * <TDTE 

001341 

0 751 

0602 




DC 

2*0602* 

00134c 





* 



001343 





* 



001344 





*— 



001345 





* TEST 

0603 

random SEEK TEST 

001346 





* 



0U1347 





* 



00134o 

0752 

8700 

0FC2 


T 0603 

CL 

<flag 

001349 

0 7 54 

6700 

OFC1 



CL 

<ERFL 

00135u 

07 56 

8756 




CL 

= $Rb 

001351 

0 75 7 

8 757 




CL 

s$R 7 

001352 

0 7 5b 

8DOO 

OFEb 



SDI 

<tempb 

001353 

0 7 5 A 

9870 

0603 



LDR 

$R1 * =Z•0603» 

001354 

07 50 

9F00 

uFEb 



STR 

$R1*<TEST 

001355 

0 7 5E 

0380 

0C6D 



LNJ 

$B5 * <T DST 

001356 

0760 

0380 

OC27 



LNJ 

$B5 * <FRRC 

001357 

0 7 62 

038u 

0C52 



LNJ 

$B5 *<TAGO 

0013 5b 

0 764 

0280 




DC 

2*D280* 

001359 

0 7 6 6 

0380 

OE38 



LNJ 

$B5 *<TIME 

001360 

0767 

OISE 




DC 

350 

001361 

0 76o 

0380 

0C50 



LNJ 

$B5 *<TAGI 

00136c 

0 / 6A 

0 700 




DC 

2 • D7 * 

Ou 1363 

076 b 

8280 

OF E7 



LB 

<TEmPA*=2 *20* 


0760 

2000 






001364 

0 7 6 E 

0500 


T 


BBT 

> + $A 

001365 

07 6 F 

b380 

0C85 



LNJ 

$B5,<TDER 

001366 

0 771 

0660 




DC 

2*0660* 

00136 7 

0 772 

6280 

OFE 7 


$A 

Lb 

<TEMPA,=2*0i* 


0 7 74 

0100 






00136b 

0775 

0580 


r 


BBF 

> + $b 

001369 

07 76 

D380 

0C85 



Lnj 

$B5 *<T DER 

0013 7u 

0 7 76 

06 6 2 




DC 

2*0662* 

001371 

0 7 79 

9680 

1211 


SB 

LAB 

$B1* <SA10DV 

001372 

07 7d 

9F80 

OOOA 

X 


STB 

$B1* <ZHiSAZ + 10*$AF 

001373 

0 7 70 

A870 

U8F0 



LDR 

$R2 *5-10000 

001374 

077 F 

AF 00 

OF CE 



SIR 

$R2 , <LPCNT 


NOT ON CYL 
DIAG check 

NO 

DIAG check 
CYL 821 
822 CYLS ? 


DIVIDE BY 2 
MAX CYL ADDR 
INITIAL SEEK FO CYl l 
STORE NEXT CYl. ADDrfSS 

RUPT SETUP AT LEV 10 
FOR DEV. TlMEuUT 


clear timer 

IN CASE OF IMMEO. 


RUPT 


SEEK CYFL 


CYL ADDRESS 


7MS MAX TIME 


TIMEOUT ERROR 
R5 HAS TIME In MS 
XXXXXX 



ON CYL ? 

YES 

NOT ON CYL 
DIAG CHECK ? 

NO 

YES 

SETUP SB/IS DATA 
ALL BITS EXCePT PROTECT 

DIAG FAULTS 

SECOND PASS ? 


BUMP CYL ADDktSS 
MAX CYL ? 

GO AGAIN 

SET FLAG For gECONq PASS 


GET NEXT ADDRcSS 
END TEST 


TEST NUMBER 

•START TEST* 

FAULT RESET/ReADY CHK 

RTZ 

350 MS DELAY 
ON CYL ? 


ON CYL NOT St I 
DIAGNOSTIC ? 


DIAGNOSTIC ACTIVE 


WHEN THE DEVICE RUpjS 


TOTAL SEEKS 

STORE (-) LOOP COUNTER 
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GUI 375 

0 761 

AFOO 

OFCF 


T0603B 

STR 

$R2,cLPCUk 

ALSO JN CURRENT COUNTFR 

OU137b 





T0603A 

CALL 

2V$Fk,TEMPA,D~1 

GET RANDOM NUmBER 


0783 

F BCO 

0003 







0 76 5 

0360 

0000 

X 






0 76/ 

0F80 








0 /80 

OFE 7 








0 769 

OF AF 







GO 1 d 77 

0 / 6 A 

9600 

OF E 7 



LOR 

SRl,cTEMPA 


001376 

078G 

9570 

03FF 



AND 

$R1, = X* 03FF * 

CLEAR HI BITS 

001379 

076E 

9970 

0336 



CMR 

SR 1, = 822 


OUl3bO 

0 7 90 

0260 

0783 



bet 

<T0o03 A 

TOO BIO 

001381 

0 792 

6280 

0FC4 



Lb 

<IDlN, =2•8000 * 

822 CYL ? 


0 794 

8000 







OOI 384 

0 795 

0500 


T 


bBT 

>♦ Sb 

YES 

001383 

0 7 96 

1041 




SDK 

SRI»1 

CUT IN HALF FuR 41o CYL 

00 138*+ 

0 79 7 

9F 00 

0000 

T 

3>b 

STR 

SR 1,c + $C 


00138b 

0/99 

0380 

0E9 1 



LNJ 

Sb5,<EV10SU 

SETUP LEV 10 RuPT 

001386 

u 7 9d 

0E80 




OC 

cLVIOTM 

HERE 

001387 

0 /9G 

0380 

OOC6 



LNJ 

$B5,cSKCYF 

SEEK TO 

00138o 

G79L 

0000 



SC 

OC 

0 

THIS CYL ADDReSS 

001389 

0 79F 

0380 

0E9E 



LNJ 

SB5,<TIMDE 

TIME SEEK 

001390 

07A1 

00b4 




OC 

100 

100M5 MAX, 

001391 

0 7 A 2 

OF bO 


1 


b 

> + $D 

OK 

001392 

0 7m 3 

8900 

OFC1 



LbT 

cERFL,=X•02• 

SET CONTINUE FLAG 


07Mb 

0002 







001393 

0 /A6 

0360 

0C85 



LNJ 

Sb5,<1DER 


001394 

07 Ab 

U6 64 




OC 

2 * 0664• 

SEEK TIMEOUT 

00139b 

0 7 A 9 

0380 

0C50 


$0 

LNJ 

Sb5,<TAGI 


OU1396 

07Ab 

0700 




OC 

2 * D 7 * 


GO 1 39 1 

07 AC 

8280 

0FE7 



Ld 

cTEmPA, s2 * 2• 

ON CYL ? 


0 7 A E 

2000 







001396 

0 7 A F 

0500 


T 


bbl 

> + $t 


001399 

0 7b0 

0360 

0C81 



LNJ 

SB5,cTDER1 


00IhOO 

07d2 

0666 




-DC 

2*0666* 

NOT ON CYL 

001401 

0 7b3 

6260 

0FE7 


St 

Lb 

<T Ei'iPA ,=2*01* 

DIAG, BIT ? 


G7d5 

0100 







OUI 4 O 4 

0 7b6 

0560 


1 


bdF 

> + $N 


0UK03 

0 7b 7 

0360 

0C50 



LNJ 

SB5,<T AG1 


OOI 4 O 4 

0 7b9 

0200 




OC 

2’D.c* 

TEST FAULTS 

001405 

0 7bA 

0360 

0046 



LNJ 

SB5,<SB I S 


001^06 

0 7bC 

0001 




OC 

X'Ol* 

DONT CARE BIT 

0 01 *♦ 0 7 

07 BO 

0380 

0C81 



LNJ 

SB5,cTOtR 1 


001406 

0 7 b F 

0666 




OC 

2*0668* 

PRINT FAULT BITS 

001409 

0 7 CO 

8800 

0FC1 


SH 

LbF 

<ERfL,-X*02• 

CLEAR CONTINUE FLAg 


0 7 C 2 

0002 







001*10 

0 7C3 

0560 


1 


bbF 

> + $F 

NORMAL RETURN 

001411 

U 7 C 4 

0360 

ocoo 



LNJ 

S65,cTDTE 

END CONTINUE MODE 

001 h 12 

07Co 

0603 




OC 

2*0603* 


001413 

OIL 7 

OF 60 

0100 



b 

cSTART 


001*14 

0 7C9 

0360 

0033 


SF 

LNJ 

SB5,<QUIT 

HIT BRK TO STUP 

001*15 

0 7 C D 

0000 




DC 

< + Sc 

NO BREAK 

001*16 

07CC 

OOOO 




OC 

< + $M 

GO HERE ON BRK 

001417 

0 7 CO 

A800 

oFCF 


$G 

LOR 

SR2,cLPCUR 

GET CURRENT CuUNT 

001416 

07CF 

2 780 

0781 



bllMC 

SR2,<T0603B 

DO NEXT SEEK 

001419 

0701 

8C80 

0FE6 


5>A 

LOI 

cTEMPb 

GET STORED TIME LOOPS 

001420 

0 703 

0380 

OtbE 



LNJ 

SB5,<T MAVE 

GET AVERAGE TIME 

001421 

0 7 05 

0380 

0F7B 



LNJ 

SB5,<CRLF 

DO A LINEFEED 

001*2l 






CALL 

2 V $ I H • 2 V 3> T D»A v E T M 

PRINT AVE TIMl 


0 70 7 

FbCu 

0003 







0709 

0380 

uGOO 

X 






0 70b 

OF 80 








0 7UC 

0 F A 7 







001423 






CALL 

2V$ 1,MSKTM 

SEEK TIME 


0 700 

FbCO 

0003 







0 7 OF 

0380 

0000 

X 






07E 1 

0F80 








0 7E2 

10A5 







001424 

07 E3 

0360 

OCDO 



LNj 

SB5,cTDTE 

EMD TEST 

00142b 

07E5 

0603 




DC 

2 • 0o03' 


001426 





* 




001427 





* 

_—. 




UU IH CO 

001429 





* 




001430 





* TEST 

0604 

DIRECT AND REPEAT SEEK TEST 

001431 





* 




001434 





# 




001433 

G7Eo 

b700 

0FC2 


T 0604 

CL 

<FLAG 


001434 

0 7 E 6 

8700 

OFC 1 



CL 

cERFL 


00143b 

0 7EA 

6756 




CL 

= SRo 


001436 

0 71 b 

675 7 




CL 

= $R 7 


001437 

07EC 

8000 

0FE8 



SOI 

cT&MPB 

CLEAR TEMPB,TlMPC 

00143b 

07Et 

9870 

0604 



LOR 

SRI,-2*0604* 

TEST NUMBER 

001439 

0 7 F 0 

9F00 

OF Lb 



STR 

SR 1,<TEST 


001440 

0 7 F 2 

0380 

0C6D 



LNJ 

Sb5,<TDST 

•START TEST* 

001441 

07 F 4 

9680 

1211 



LAB 

SBi,<SA100V 


001444 

0 7 F 6 

9F80 

OOOA 

X 


STb 

*Bl,c2HlSA2+10*$AF 


001443 

0 7 F 6 

0380 

0058 



LNJ 

SB5,eGETCY 

GET CYL ADDRESS 

001444 

0 7FA 

0360 

0E91 


T 06040 

LNJ 

SB5,<LV10SU 

SETUP LEV10 

00144b 

0 7 F C 

0E80 




OC 

cLVIOTM 

FOR THIS PROCtSS 

001446 

07 F 0 

0380 

00C6 



LNJ 

$65,<SKCYF 

SEEK 

001447 

07 F F 

0000 




DC 

0 

TO CYL 0 

00l44o 

080O 

0380 

0E9E 



LNJ 

SB5,<TIMDE 

TIME TILL DEV RUPT 

001449 

0802 

0070 




DC 

125 

MAX TIME = 12s MS 

001450 

0603 

0F80 


T 


b 

> + $C 

TIME IS OK 

001451 

0604 

OF 7F 




NOP 

>$-i 

XXXXXX 

00145*: 

0605 

0360 

0C50 



LNJ 

SB5,cTAGI 

TIMEOUT RTN 

001453 

0607 

0300 




DC 

2«D3* 

GET FAULT DATA 

001454 

0806 

0380 

0046 



LNJ 

$B5,<SB1S 

SB/IS DATA 

001455 

060A 

OOF 9 




OC 

X * F9' 

DONT CARE BITr 

001456 

080b 

0360 

0C85 



LNJ 

SB5,<TDER 


001457 

0600 

0674 




OC 

2*0674* 

seek TIMEOUT 

001456 

060E 

0F7F 



SC 

NUP 

>$-i 

XXXXXX 

001459 

060F 

0360 

0C50 



LNJ 

SB5,cTAGI 


001460 

0611 

0600 




OC 

2 * Db» 


001461 

0612 

8260 

0FE7 



Lb 

<TEi*iPA * =Z' 20' 

ON CYL ? 


Ob 14 

2000 







00l*6c 

0615 

0500 


1 


bbT 

> + $0 

YES 

OU1463 

0816 

0360 

0C85 



LNJ 

SB5,<TDER 


001464 

0818 

0672 




DC 

2 * 0o72 * 

ON CYL NOT St 1 

001465 

0619 

9800 

OFAD 


SO 

LOR 

SR 1,<CY AD 

GET SELECTED uYL 

001466 

081b 

9F00 

0000 

T 


STR 

SRI*c + $E 


001467 

06 id 

0380 

0E9 1 



LNJ 

SB5,<LV10SU 

SET UP LV10 

00146b 

08 1F 

0E80 




DC 

cLVIOTM 

FOR THIS PROCtSS 



$ 'T\ 

\_y 













TITLE SMDSz**ktV C* 

1 , STORAGE 

MODULE TOD* FEd 18 

* 197b 
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OU1469 

0820 

6700 

0PL8 



CL 

<TEMPO 

CLEAR TIME ACCUMULATORS 

001470 

06 4 2 

6 7 00 

OP E9 



Cl 

<TEiviPC 


UO 1 h 7i 

0824 

0380 

00C6 



LNJ 

*B5,<SKCYF 

SEEK r ^ 

0 U 1 A 7 2 

0826 

0000 



*t 

oc 

0 

selected cyl 

m '' 0014/3 

0827 

0360 

Ot9t 



LNJ 

$B5 1 <TIMOt 

TIME SEEK 

■ 001*74 

0629 

0070 




OC 

125 

MAX TIME 

V J U U 1 * 7 5 

0 8 2A 

01-80 


P 


b 

> + $P 

OK 

001476 

082b 

op 7 p 




NOP 

>$-l 

XXXXX 

001477 

0626 

0380 

0C50 



LNJ 

$B5 * <TAGI 

TIMEOUT TO HEkE 

0014/6 

0826 

03 00 




OC 

2*03' 

GET FAULT DAT* 

001479 

062 P 

0360 

0046 



LNJ 

5>B5 ♦ <SB I S 

SB/IS DATA 

OU146U 

0631 

UO P 9 




OC 

A * F9 * 

DONT CARE BITd 

UOI 48 1 

0632 

O3b0 

0C85 



LNJ 

$B5,<TDEK 


UUl48c 

0884 

U674 




OC 

Z»0674* 

SEEK TIMEOUT 

Ou 1483 

0633 

U F 7 P 



3b F 

NOP 

>$-l 

XXXXX 

OU1484 

08 36 

0380 

0C50 



LNJ 

*B5 *<7 AGI 


001483 

0836 

0600 




OC' 

Z * Do * 


UO i486 

0639 

6260 

0PL7 



Lb 

<T EmPA *=2*20' 

ON CYL 


Oo3b 

2000 







001487 

083*w 

0500 


T 


bbT 

> + $A 

YES 

Oui486 

0 6 3 6» 

0380 

0C8 5 



LNJ 

SB5,<TDER 


001489 

0631- 

0676 




OC 

2*0d76» 

ON CYL NOT SET 

.00149U 

Oo4u 

8260 

uPC5 


3>A 

Lb 

<IPPL*=X*1• 

INH PRINT ? 


0642 

0001 







001491 

0843 

0500 


T 


BBT 

> ♦ $0 

YES 

001494 






CALL 

ZV$1.ZV$UC*MSLP 

LOOP ? 


0844 

PbCO 

0U03 







0646 

0360 

oOOO 

A 






0o46 

OP 80 








0649 

1 Obo 







001493 

064A 

0380 

oOOb 



LNJ 

3>B5 * < YSNO 

Y OR N ? 

U01494 

0840 

0857 




OC 

<T0o04C 

NO 

001493 

0840 

084t 




OC 

< $ ♦ A F 

YES 

001496 

084L 

6900 

uPC5 



LbT 

<IPFL*=A*1 • 

TURN ON INH PkINT 


0850 

0001 







001497 

0631 

0380 

0033 


Sb 

LNJ 

$b5,<QUIT 

CHECK for BREmK 

U 0 1 4 9 6 

0653 

07F A 




OC 

<T0604D 

KEEP LOOPING 

001499 

0634 

0655 




OC 

<$+$AF 

GET OUT 

001300 

0855 

6 700 

0FC5 



CL 

< I PP L 

RESET INH PRIixT 

001301 

083 / 

0360 

OCOO 


T0604C 

LNJ 

$B5 1 <TDTt 

END TEST 

0U1302 

0859 

0604 




OC 

Z * 0604 * 


001 30 3 





* 




001304 





A 




001303 





*** A ******************************* a-**********#*******#**#*************# 

001306 





* TEST 

0700 

LUURSt VELOCITY GAIN 

ADJUST 

00130 / 





* 




001306 





* 




001309 

083a 

8 700 

OF C2 


T0700 

CL 

<FLAG 


0U131U 

085C 

8700 

OF C1 



CL 

<ERPL 


001311 

08 31 

8756 




CL 

= $R0 


00 131-3 

U85F 

8757 




CL 

= $R7 


001313 

0660 

8D00 

0FE8 



SOI 

< TEMPO 

clear tempo* iempc 

001314 

0862 

8DO0 

OPEC 



SOI 

<TMFWD 

CLR TMFwD,TMRlV MAx FwD/REV TIME 

001313 

0864 

9870 

0700 



LOK 

$R l* =2• 0700 * 

TEST NUMBER 

001316 

O 060 

9P00 

OFEb 



STR 

$R1*<TEST 


. 00131/ 

0866 

0380 

0C60 



LNJ 

$B5 * <TDST 

•START TEST* 

4 UG1518 

0 8 6 A 

9680 

1211 



LAb 

$B1*<SA10DV 

ENB LEV 10 

i uui3i9 

066L 

9F80 

000 A 

A 


STB 

SB 1 * <ZPi I SAZ + 10*$AF 


1 001320 

U66t 

0360 

0C52 



LNJ 

SB5 * <TAGO 


^ 001321 

0870 

0280 




OC 

Z'P2&0' 

RTZ 

001324 

0671 

0360 

0E38 



LNJ 

SB5 ♦ <TI ML 


001323 

0873 

0190 




OC 

400 

400 MS DELAY 

001324 

0 6/4 

0360 

0C50 



LNJ 

SB5 *<TAGI 


001323 

0676 

0700 




OC 

Z * D 7 • 


001326 

08 7/ 

8280 

0FE7 



Lb 

<TEMPA,=Z»20» 

ON CYL ? 


0879 

2000 







001327 

067 A 

0500 


T 


bbT 

> + $A 

YES 

001326 

08 /b 

0360 

0C85 



LNJ 

SB5»<TOER 


001329 

06/0 

0714 




OC 

Z • 0 /14 * 

ON CYL NOT ACTIVE 

00133U 





5 A 

CALL 

ZV$P.ZVSTC*MSLCT 

ENTER LOOP COUNT 


067L 

FBCU 

0003 







0860 

03b0 

0000 

A 






0862 

OP 60 








0883 

lObO 







001331 






CALL 

ZV$1 D »LPCNT 

INPUT LOOP COUNT 


0684 

PBCO 

0003 







0886 

0380 

0000 

A 






0866 

0F6O 








0669 

OP Ct 







001334 

086A 

6200 

OPCE 



NtO 

<LPCNT 

MAKE IT NEGATIVE 

U01333 

0 8 8 C 

A600 

OF CL 



LOR 

$R2,<LPCNT 


Oul334 

0886 

APOO 

OP CP 


T0700F 

SIR 

$R2 * <LPCUR 

PUT IN CURRENT COUNTER 

001333 

0890 

0380 

0C50 


T0700A 

LNJ 

SB5* <T AGI 


001336 

0892 

0700 




OC 

Z • D / * 


001337 

0893 

6260 

0FE7 



Lb 

<TEMPA,=Z*01» 

DIAGNOSTIC ? 


0893 

0100 







001338 

0696 

0560 


T 


BbF 

> + $C 

NO 

001339 

08 9 7 

0380 

OC50 



LNJ 

SB5,<TAGI 


001340 

0899 

0200 




OC 

Z»Dz» 


001341 

089A 

6280 

0 F E 7 



LB 

<TEmPA»=Z»FE» 

ANY BITS ? 


0890 

F tOO 







001342 

0890 

0500 


I 


BBT 

> + $d 

YES 

001343 

069L 

0360 

OC85 



LNJ 

$B5»<TDER 


001344 

06 AO 

0716 




DC 

Z * 0 7 16 * 

NO DIAG BITS jET 

001343 

08 A 1 

0380 

0046 


$b 

LNJ 

SB5 * <SBI S 

SB/IS DATA 

001346 

08 A3 

0001 




OC 

X»Ql» 

CHECK ALL BITj EXCfPT PROTECT 

001347 

08 A4 

0360 

0C65 



LNJ 

SB5* <TDEK 


001346 

08 A6 

0716 




OC 

Z * 0 7 18 • 

DISPLAY FAULT BITS 

001349 

08A7 

8280 

0FC4 


SC 

Lb 

<IDLN»=Z*80* 

822 CYLS ? 


08A9 

8000 







001330 

06AA 

0580 


T 


bbF 

> + $D 

NO 

001331 

08 Ab 

9870 

0336 



LOR 

SRl * = 822 

YES 

001352 

06 AO 

OF80 


T 


B 

> + $t 


001353 

08 At 

9670 

019 A 


$0 

LOR 

SR1*=410 

410 CYLS 

001354 

08b0 

9 POO 

08B7 


3>E 

STR 

SRI*<T0700B 

PUT IN SEEK CMD 

001353 

08b2 

0360 

0E9 1 



LNJ 

Sb5 * <LV10SU 

SET LV10 RUPT 

001356 

0864 

0t80 




OC 

<LV10TM 

LVIO TIMER 

001357 

08b5 

0380 

0DC6 



LNJ 

SB5 « <SKCYF 

SEEK TO 

Jr 00135o 

08b 7 

0000 



T0700B 

OC 

0 

THIS CYL 

■ 001559 

08d8 

0380 

0E9E 



LNJ 

SB5,<TIMDE 

TIME DEVICE EVENT 

4 001360 

ObbA 

0064 




OC 

100 

100 MS MAX TIME 

^ 001361 

06bb 

OF 60 


T 


B 

> + $A 

OK 

001562 

ObbC 

0360 

0C50 


T0700C 

LNJ 

SB5 * <T AGI 




TITLE SmOS2 ,« 

REV C< 

'» STORAGE 

MODULE 

: TjD, FEB 18 

♦ 197b 

001563 

08Bt 

D200 




DC 

Z’D2» 

001564 

ObbF 

8280 

0FE7 



LB 

<TEMPA*=Z’FE* 


06C1 

FEOO 






001565 

08C2 

0500 


T 


BBT 

> + $F 

001566 

08C3 

D380 

0C85 



LNJ 

$B5,<TDER 

001567 

08 C 5 

0722 




DC 

Z • 0 7 2 2 • 

001568 

oaCc 

D380 

0046 ‘ 


$F 

LNJ 

$B5 »<SBIS 

00166V 

06C8 

0001 




DC 

X’Ol’ 

001570 

0bC9 

D380 

0 C8 5 



LNJ 

$B5 »<TDER 

001571 

08Cd 

0724 

- 



DC 

Z'0724• 

00157^ 

08CC 

0900 

OFEC 


$A 

CMR 

$R5»<TMFWD 

001573 

ObCE 

0380 


T 


BLE 

> + $b 

001574 

ObCF 

DFOO 

OFEC 



STR 

SR5 *<TMFWD 

001575 

ObDi 

D380 

0E91 


$B 

LNJ 

$B5 * <LV10SU 

00157o 

ObD3 

0E80 




DC 

<LV10TM 

001577 

0604 

D380 

00C6 



LNJ 

$B5,<SKCYF 

001578 

OBDo 

0000 




DC 

0 

00157V 

08D7 

D380 

0E9E 



LNJ 

$B5 »<TIMDE 

001580 

0809 

0064 




DC 

100 

001581 

ObOA 

0F80 


T 


b 

>+$c 

00158t 

oaob 

0F80 

08BC 



B 

<T0700C 

001585 

0800 

D900 

OFEO 


SC 

CMR 

$R5,<TMREV 

001584 

08 OF 

0380 


T 


BLE 

> + $D 

001585 

Obto 

DFOO 

OFED 



SIR 

SR5 *<TMREV 

001586 

08E2 

D380 

0033 


$D 

LNJ 

$B5,<0UIT 

00158 7 

08E4 

0000 




DC 

< + $E 

001588 

ObE5 

0000 




DC 

< + $F 

00158V 

ObEb 

A800 

OF CF 


$E 

LOR 

$R2,<LPCUR 

001590 

08 tb 

2780 

0881 



blNC 

SR2 * <T0700F 

001591 

ObEA 

D380 

OEBE 


$F 

LNJ 

$65,<TMAVE 

001598 

08EC 

6041 




SOR 

SR6,1 

001593 

oato 

8 ED6 




CAD 

= $Ro 

001594 

Obtt 

EF 00 

OF A 7 



STR 

$R6,<AVETM 

001595 

08F0 

D380 

0F7B 



LNJ 

$B5 * <CRLF 

00159b 






CALL 

ZV$IH.ZV$TD,TMFWD 


08F2 

FbCO 

0003 






0 8 F A 

D380 

0000 

X 





ObFb 

OF 80 







0 8 F 7 

OF EC 






001597 






CALL 

ZV$T *MSMXF 


0 bF8 

FBCO 

0003 






G8F A 

D38 0 

0000 

X 





OfaFC 

0F80 







ObF 0 

lOCb 






GO 159b 

08Ft 

D380 

OF 7o 



LNJ 

SB5* <CRLF 

00159V 






CALL 

ZV$TH*ZV$TDt TMREV 


0900 

FbCO 

0003 






0V02 

D3b0 

0000 

x ■ 





0904 

OF 80 







0905 

OFEu 






OOlbOu 






CALL 

ZV$I»MSMXR 


0 906 

FBCO 

0003 






OVOb 

0380 

0000 

X 





090A 

OF 80 







OVOd 

1006 






001 bOi 

090C 

0380 

0F7b 



LNJ 

$B5,<CRLF 

OOlbOt 






CALL 

ZV$TH*ZVSTD»AvETM 


OVOL 

FbCO 

0003 






0910 

0380 

0000 

X 





0912 

OFbO 







0913 

0FA7 






00 lb03 






CALL 

ZV$T*MSKTM 


0914 

FbCO 

0u03 






0 9 16 

0380 

0000 

X 





OVlb 

OF 80 







oviv 

10A5 






00 1 b04 

091A 

8280 

0 F C 4 



Lb 

<IDlN*=Z’CO» 


09 1L 

COOO 






001b05 

0910 

0500 


r 


BbT 

> ♦ $ t 

OOlbOb 

OVIE 

E970 

0024 



CMR 

$R6,=36 

001607 

0920 

0200 

094C 



bL 

<101000 

OOlbOo 

0922 

E970 

0028 



CMR 

$R6,=40 

001609 

0924 

0300 

094C 



bG 

< TO 700D 

OOlblO 

092b 

OFbO 

094 F 



b 

<TO 700E 

001 o 11 

092b 

82 bO 

UFC4 


$E 

Lb 

<i Den *=z * 80 * 


092a 

8000 






00 l6lc 

092b 

0500 


T 


bbT 

> + $F 

OOlbls 

092 L 

E97 0 

0021 



CMR 

$R6 * s 33 

001bl4 

G'V2 L 

0200 

094C 



bL 

<TO/OOD 

00 lb 15 

0930 

E9 7 0 

0025 



CMR 

$R6,=37 

GO lb lb 

0932 

0300 

094C 



bG 

<T 0 fQOD 

0 0 1 b 17 

Ov3a 

OFbO 

094F 



b 

<T0700L 

OOiblb 

0936 

8280 

0FC4 


$F 

Lb 

<1DtN* =Z * 40’ 


093b 

4000 






00 16 IV 

0939 

0500 


i 


bbT 

> + $A 

001620 

09 3 A 

E970 

0032 



CMR 

SR6 * = 50 

001 b2 1 

09 3C 

0200 

094C 



bL 

<T0700D 

Q0lb2c 

093L 

E970 

003b 



LMR 

SR6 »= 56 

001o23 

0940 

0300 

094C 



bb 

<T0 700D 

00 1 o2h 

0942 

0F80 

094F 



b 

<T0 TOOL 

001b2 5 

0944 

E970 

0032 


$A 

CMR 

$R6,=50 

00 1 b 2 b 

0940 

0200 

094C 



bL 

<T0700D 

001627 

094b 

E970 

0038 



CMR 

SR6,=56 

00 1 b2 8 

094 A 

0380 

094 F 



bLE 

<T 0700E 

001 o2v 

0940 

0380 

uC8 5 


T 0 7 0 0 0 

LNJ 

$B5,<TDER 

00 lb30 

0946 

07 2 b 




DC 

Z * 0 7 2 8 ’ 

001b31 

0V4F 

0380 

OCDO 


T0700E 

LNJ 

SB5,<TDTE 

00 1 b 3 c 

095 1 

0700 




DC 

Z • 0 700 ’ 

GO 1b 3 3 





* 



001b 34 








001b3 5 





***************************x#**4 

00 1 b 3 b 





X TEST 

0900 

KPS TtST 

001 b37 





X 



00163b 





X 



001b3V 

0952 

8700 

0FC2 


T 0900 

LL 

<FLAG 

001640 

0954 

8700 

oFC 1 



LL 

<ERFL 

001641 

09 5o 

9870 

U900 



LOR 

$R1» = Z *0900* 

00164^ 

095b 

VFUO 

OF Eb 



STR 

Ski,<TEST 

001643 

09 5 a 

0380 

0C60 



LNJ 

$B5,<TDST 

001o44 

09 5 0 

0380 

0C27 



Lnj 

Sb5,<FRRC 

001o45 

09 5 E 

0380 

0C5 2 



LNJ 

$85 »<T AGO 

001b4o 

0960 

0580 




DC 

Z•D580' 

001b4 7 

096 1 

0380 

0C50 



LNJ 

$65,<TAGI 
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CHECK 01AG BITS 

SOME ARE SET 
NONE ARE SET 

SB/IS OATA 

TEST ALL BITS EXCEPT PROTECT 

DISPLAY ERROR BITS 
MAX FWP ? 

NO 

STORE MAX FWD TIME 
SET LEV 10 AGAIN 

SEEK TO 
CYL 0 

TIME DEVICE EVENT 
ZOOMS MAX 

REPORT ERROR 
MAX REV ? 

NO 

STORE MAX REV TIME 
HIT BREAK TO uUIT 
CONTINUE 
EXIT 

GET CURRENT CuUNTEr 
LOOP BACK AGAIN 
GET AVE TIME 


DIVIDE BY 2 
ROUND RESULT 
FOR 2 SEEKS/LOOP 
DO A LINE FEEu 
PRINT FWD TIMt 


MAX FWD TIME 


PRINT REV TIMt 


MAX REV TIME 


printave time 


AVE SEEK TIME 


CHECK DEVICE TYPE 


IT’S 40 MBS 
<36 MS 


>40 MS 

WITHIN LIMITS 


IT’S ZSO MBS 
<33 MS 


IT’S 80 MBS 
<50MS 


IT’S 300 MBS 
<50MS 


AVE TIME FAlLtD 
TEST END 


TEST NO 

•START TEST’ 

FAULT RESET/RtADY CHECK 

LOAD TARGET REG 


V 
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00164b 

0963 

0580 




DC 

2 * D580• 


001649 

0964 

9800 

0FE7 



LOR 

$R1,<TEMPA 

GET TARGET REvj 

001650 

0966 

1046 




SGk 

SRI,8 


001651 

0967 

9670 

0080 



XOR 

SRI ,=X*80* 

TEST IF = *80* 

001652 

0969 

1900 


T 


BEZ 

$R1»>+$A 

IT POES 

001653 

096 A 

0380 

0C85 



LNJ 

$B5,<TDER 


001654 

096C 

0912 




DC 

2*0912* 

TARGET NOT ? *80* 

001655 

0960 

0360 

0C52 


SA 

LNJ 

SB5,<T AGO 


001656 

09oF 

05 FF 




DC 

2 • D 5 F F • 

LOAD TARGET RtG =*7F* 

001657 

0970 

0360 

0C5 0 



LNJ 

SB5 * <TAG1 


001656 

0972 

05F F 




DC 

2'D5FF * 

READ IT BACK 

001659 

09 76 

9800 

OF E7 



LOR 

SR1,<TEMPA 

GET BUS IN 

00166U 

0975 

104b 




SDR 

SRI,8 


001661 

0976 

9670 

OOFF 



XOR 

SR 1, = X * FF * 

TEST FOR •FF• 

00166 £ 

0976 

1900 


T 


BEZ 

SR 1,> + $6 

IT 15 

001663 

0979 

0380 

0C6 5 



LNJ 

SB5 * <TDER 


001t>64 

097b 

0924 




DC 

2*0924* 

TARGET NOT =•F F * 

001665 

097C 

CF 80 

0000 

T 

SB 

STb 

SB4,< + $C 

GET RBUF ADORtSS 

001666 

0 9 7 L 

0380 

0F2 3 



LNJ 

SB5,<FL6F 

FILL BUFF WlTn STRFAM 

001667 

0980 

OF F b 




DC 

<X-FFFF 

OF F * S 

00 166b 

0981 

0001 




DC 

1 

string length 

001669 

0982 

0000 



SC 

RL3V 

SAF , 0 

READ BUFF AOOkESS 

001670 

0983 

0060 




DC 

128 

BUFFER LNGTH 

0 0 1 b 7 1 

0984 

2 CO 1 




LDV 

SR2, = 1 

SET 1 BYTE RANGE 

00167c 

0985 

bbOO 

1 1F0 



LOR 

$R3,<0TTA5K 


001673 

0987 

0870 

0500 



LOR 

SR5, =2•D5 * 

READ CURRENT SECTOR COMMAND 

001674 

0989 

F b 7 0 

FFFF 



LOR 

SR7 , = *-l 

initial buff PATTERN 

001676 

098b 

Aceu 

0FC7 



LOb 

SB2,<KKPT 

GET READ BUFFlR ADdr 

001676 

0980 

9bb0 

0961 



LAB 

Sbl,<TQ9LV5 

SETUP RUPT PRuCESS TO LV5 

00167 7 

098F 

9F80 

120E 



STb 

SBl,<SA5P 


0016 7c 

0991 

1C09 




LDV 

$R1,=9 

9 TICKS OF 8.3 MS 

001679 

099^ 

9 FOO 

0000 

X 


ST k 

SR 1 * <ZHRT CI 

SET RTC FOR 75 MS 

001660 

0994 

9 FOO 

0000 

X 


STR 

SR 1* <ZHRTCC 

ALSO CURRENT 

001661 

0996 

8801 




OLC 

= SR 1 

SET SRI FOR 66.7MS 

00168c 

099 7 

4C05 




LDV 

SR4,=5 


001683 

0996 

CF 00 

ouoo 

X ' 


STR 

SR4, <2HRTCL 

SET RTC TO LEv 5 

0Ulo84 

099A 

0004 




RTCN 


TURN RTC ON 

001685 

099b 

9900 

0000 

X 

SA 

CMR 

SR 1, <ZHRT CC 

WAIT FOR NEXT TICK 

001686 

0990 

U27E 




BL 

>-SA 


00168 7 

099 L 

9600 

1 1 F 6 



LOR 

SR 1, < I OREAD 


001686 

09 AO 

4C3F 




LDV 

SR4,=63 

LAST SECT COUNT 

O01689 





* 




001690 





x MUSI 

GO FAST HERE TO GET SECTORS 

ON FLY 

001691 





* 




00169c 

09A1 

F F 0 2 



SA 

STR 

SR7,SB2 

INITIALIZE BUFF 

001693 

09 Ac 

6182 



SB 

I OLD 

SB2,=$R1,=SR2 

SET UP INPUT 


0 9 A3 

0051 








09A4 

0052 







001694 

09A5 

07 F 0 




BI OF 

>-Sb 


001695 

09 Ab 

6055 



SC 

10 

=$R5,=$R3 

READ CURRENT jECTOr 


09A 7 

0053 







001696 

09A8 

0 7 F t 




blOF 

>-$C 


001697 

09A9 

F 902 



SO 

CMR 

SR7,$B2 

WAIT FOR BUFF CHANgf 

001696 

09 Am 

U97F 




BE 

>-Sj 


001699 

09 Ab 

E0b2 




LOH 

SR6,SB2 

GET SECTOR ADjRESS 

001700 

09 AC 

69F 5 




bNtZ 

SR6,>-$A 


0U1701 

09AD 

0005 




RT CF 


RTC OFF AT SECT 0 

00170c 

09 AL 

FFOc 




STR 

SR7, SB2 

INITIALIZE BUFF 

001706 

09 Ah 

0F80 

09CC 



b 

<T0900B 

NO RUPT SO GO ON 

001704 





* __ 




001705 





* KTC 

RUP1 1 

BRINGS US HERE 


001706 





* 




00170? 

0901 

0005 



T09LV5 

RTCF 


NO SECT 0 IN 67MS 

00170b 

09 D2 

9 680 

09bA 



LAb 

$B1,<T0900A 

SETUP FOR 

001709 

09B4 

9F80 

121A 



STB 

SBl,<SA15P 

ERROR REPORT 

001710 

09b6 

8E70 

8U0F 



LEV 

= Z * oOOO• + 15 

AT LEV 15 

001711 

09b6 

0000 




HlT 



001 71c 

0 9 b9 

OFF F 




b 

>S-i 


001713 





* 




001714 









001715 

09bA 

8206 



T0900A 

Lb 

=$R6,=X»C0* 

ANY OTHER blTb ? 


09bb 

OOCO 







001716 

09bC 

0580 


T 


BBF 

> + $A 

NO 

0O1717 

09bo 

7000 




DOR 

SR7,16 

•IS* DATA TO 4>R7 

00171b 

09bL 

8900 

UFC5 



LBl 

<IPFL,=X*2* 

ENAbLE * IS*/»SB* PRINT 


09CO 

0002 







001 719 

09C1 

504c 




SOR 

„ SR5,8 

GET TAG 

001720 

09C2 

05 70 

OOOF 



and*- 

$R5, = X * OF * 

GET TAG NO. 

001721 

09C4 

OF 00 

UFE9 



STR 

SR5,<TEMPC 


00172c 

09C6 

0380 

0C6 5 



LNJ 

SB5,<TDER 


001723 

09C8 

0994 




DC 

2*0994* 

BIT I NOT RESET BY INDEX 

001 724 

09C9 

D380 

0C65 


SA 

LNJ 

SB5,<TDEk 


001 72 5 

09Cb 

0990 




DC 

2*0990* 

NO SECTOR 0 IN 67 MS 

001726 


09CC 



T0900B 

LOU 

S 


001 72 7 

09CC 

8182 



SA 

1 OLD 

Sb2*=$Rl,=$R2 



09Co 

0051 








09CL 

0052 







001 72b 

09CF 

07F0 




4iOF 

>-$A 


001 12 9 

09D0 

6055 



SB 

ro 

=$R3,=SR3 

GET CURRENT SECTOR 


0901 

0053 







001/30 

090c 

07FE 




blOF 

>-Sb 


001 731 

0903 

F 902 



SC 

CMR 

SR7,$B2 

DID BUFF CHANGE ? 

00173c 

0904 

09 7 F 




BE 

>-$L 


00i733 

0905 

ClFc 




Cmh 

SR4,+SB2 

RECORD 63 ? 

001734 

0906 

0376 




Bb 

>-$M 

NO, SO TRY AGAIN 

001735 





*************** ******************** 

001736 





* 




001737 





* SHOULO BE 

FINISHED BY NOW 


00173c 





* 




001739 





***********************************; 

001 740 

0907 

1C01 



so 

LDV 

SRi, = 1 

INITIAL SECTOk COUNT 

001741 

0906 

AC80 

OFC 7 



LOb 

$B2,<KKPT 

ADDRESS OF RElUkNED DATA 

00174c 

090A 

AOFc 



SE 

LOH 

SR2, + SB2 

GET STORED DA I A 

001/43 

090b 

A95 1 




CMR 

$R2,=$Rl 

NEW DATA ? 

001744 

09DC 

U27L 




bL 

>-$t 

TRY SOME MORE 

001745 

0900 

0300 


T 


bG 

> + $F 

MUST HAVE SKIPPED ONE 

001746 

090t 

aAUl 




INC 

= SR1 

NEXT StQ DATA 

001/47 

090F 

1D3F 




CMV 

SRI,=63 

LAST DATA ? 

00174c 

09 LO 

02 7 A 




BL 

>-SL 

GO AGAIN 

001749 

09E 1 

0F80 

09 FO 



b 

<T0900C 

ALL FJNISHtD 

001750 

0963 

9F56 



SF 

STR 

SR 1 , = SR6 

•SB* DATA 

001751 

09L4 

AF5 7 




STR 

SR2,=SR7 

•IS* data 

001752 

09L5 

6900 

0FC5 



Lb f 

<IPFL,=X*2* 

ENABLE * IS* /• SB* PRINTOUT 
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00176b 

09b 7 
09L8 

U002 

504b 


SuR 

SR5*8 

GET TAG 

001764 

09L9 

D570 

00 OF 

AND 

$R5 » = X•OF * 

GET TAG NO. 

001756 

G9tb 

DFOO 

OF E9 

SIR 

SR5,<TEMPC 


OUl 75b 

09LD 

D380 

OC85 

LNJ 

$65,<TDEk 


001/67 

09LF 

0992 


DC 

2*0992* 

WRONG SECTOR 

00175b 

09F 0 

D380 

OCDD 

T0900C LNJ 

SB5 »<TDTE 

END TEST 

001759 

09F 2 

0900 


DC 

2*0900* 



001760 

001/61 

001/64 

001 763 
OUl 76 m 
001 7 6 6 
001 76b 
001767 
00176o 


001776 

00177b 

001777 

001/7b 


001779 


0 A02 
UMO 3 
0 AO 6 
0 A06 

0 AO 7 
0 A09 
0 AOo 
OAOC 

0 AOO 
GmuF 
0 A 1 1 
UAi< 


10FF 

0380 

0000 

0000 

FBCO 
0380 
OF 80 
1117 

FbCO 
0380 
0 FbO 
IOLa 


000b 


0003 

0000 


0003 

0000 


0A21 FBCO 0003 


001802 
001803 
00180 m 
001c 06 
00180b 
001807 


********************************************************************; 

* TEST 1000 

* 

*~wRlTE~PR0TtCT~TtST 


00 1 769 

09F 3 

b700 

OF C2 


11000 CL 

< FL AG 


OUl 7 70 

09F 6 

8 700 

OF C 1 


CL 

<ERFL 


001771 

09F 7 

9870 

1000 


LDR 

SR 1*=Z•1000• 


00 1 lie 

09F9 

9F00 

OF tb 


STR 

SRli<TEST 

STORE TEST NUMBER 

uOi/73 

09 F b 

D380 

0C6D 


LIMJ 

S65,<TDST 

•START TEST * 

001 774 

09 F U 

FbCO 

0003 


CALL 

ZV$T.ZVSTC,MSPS1 

PROT SWTCH LIT ? 


09FF 

D380 

0000 

X 





0 AO 1 

0 F8 0 







SA 


2b F 


LJMJ $B5 »<YSNO 

DC < + $a 

DC <+$d 

CALL ZV$T.ZV$TC*MSPS2 


CALL ZVST.ZVSTC »MSDGNE 


Y OR H RESPONSE 
• N • RESPONSE 
•Y» RESPONSE 
•DEPRESS PRUT SWTCh 


•Y* WHEN DONE 


Oul 780 

0 A 1 3 

D38U 

UDOd 


LNJ 

$B5♦<YSNQ 

Y OR N REPLY 

Oul 781 

0 A1 6 

OAOD 



DC 

<-$F 

•N• REPLY 

001784 

0 A 1 b 

0 A1 7 



DC 

<$ + :»AF 

• Y• REPLY 

UO 1 783 

0 A1 7 

D380 

OC50 

SB 

LNJ 

SB5 »<TAGl 

001 784 

OA 1 9 

D200 



DC 

Z • DZ • 

GET DIA6 TAG 

001 785 

0 A 1A 

8280 

OF E7 


Lb 

<TEMPA,=Z»01* 

WRITE PROT ? 


0 A 1 C 

0100 






00178b 

OAlD 

0500 


r 

bbT 

>+$c 


001 78 7 

0 A 1L 

D380 

0C85 


LNJ 

SB5,<TDER 


Oul788 

OaZO 

1040 



DC 

Z» 1040* 

WRT PROT BIT 

001789 




sc 

CALL 

ZVST.ZVSTC *M5PS2 

HIT PROT Sw 



0 A2 3 

D380 

0000 

X 






0A26 

OF 80 








OAZb 

1117 







001790 

0 A4 7 

FBCO 

0003 


SF 

CALL 

ZV$T*ZVsT C»MSDONE 

•Y• WHEN DONE 


0 A2 9 

D380 

0000 

X 






OAZb 

OF 80 








0A2C 

10EA 






Y OR N REPLY 

001791 

0A2D 

u380 

ODOb 



LNJ 

SB 5♦<YSNO 

00179a 

0A2F 

0A2 7 




DC 

<-SF 

•N» REPLY 

001793 

0A3O 

0A31 




DC 

<S*sAF 

•Y• REPLY 

001794 

0 a3 1 

D380 

0C50 


SD 

LNJ 

SB5 *<TAGI 

GET DIAG TAG 

001796 

OA33 

D200 




DC 

Z»DZ* 

001796 

0A34 

8280 

0FE7 



Lb 

<TEmPA*=Z*01* 

PROT bIT ON ? 


0 A3b 

0100 







001797 

0 a37 

0580 


1 


bBF 

> + $L 


OUl79b 

0 A3b 

D380 

0C85 



LNJ 

SB5,<TDER 

PROT SWTCH SET 

001799 

0 A3 A 

1042 




DC 

Z»1042• 

OOlbOO 

0A3d 

D380 

OCDD 


$E 

LNJ 

SB5♦<T DTE 

END TEST 1000 

OOlbOi 

0A3D 

1000 




DC 

Z*1000* 


00 1bOb 

0A3E 

8700 

OF C2 


T1001 CL 

<FLAG 

00ib09 

0 A 4 U 

8700 

OF C1 


CL 

<ERF L 

00 lb 10 

0 A42 

9870 

1001 


LDR 

$R1* = 2 * 1001 * 

00 lb 11 

0A44 

9F00 

OFEb 


STR 

SR 1 * <TEST 

001812 

0 A4b 

D380 

0 C6D 


LNJ 

SB5 *<TDST 

001b 1 3 

0 A4 8 

FbCO 

0003 


CALL 

ZVST »ZVST C *MS« 


0 A4 A 

D380 

0000 

X 




0A4C 

OF 80 






0A4D 

11 DE 





001814 

0A4L 

FBCO 

0003 


CALL 

ZVST $ MSPS1A 


0A50 

D380 

0000 

X 




0A52 

OF 80 






0A53 

110 L 




SB5,<YSN0 

001815 

0A54 

D380 

ODOb 


LNJ 

0018 1 6 

0 Abb 

OAbb 



DC 

<T1001A 

001817 

0 A57 

0 A5D 



DC 

<T lOQ16 

001 b 1 8 

0 Abb 

8900 

OF C2 


T1001A LBT 

<FLAG * = X * 02 * 


0 A5 A 

0002 





00 18 19 

0A5b 

0F80 

ObF2 


b 

<T1001F 

001820 

0 A5D 

9B80 

1211 


T1001B LAB 

$B1 1 <SA10DV 

001821 

0A5F 

9 F 8 0 

OOOA 

X 

STB 

$B1»<ZH1SA2*10 

001824 

OAbi 

D380 

0D58 


LNJ 

SB5,<GETCY 

00 1 b 2 3 

0A63 

D360 

0DA4 


LNJ 

$65,<GETSC 

001b24 

0 Abb 

D380 

0E91 


LNJ 

SB5 »<LV1QSU 

001825 

0 A67 

0E82 



DC 

<LV10T1 

00182b 

0 A68 

B800 

OF AC 


LDR 

$R3,<BITE 

001827 

OAbA 

9800 

OFAD 


LDR 

SR 1 * <CYAD 

001828 

0A6C 

9F30 

OF B9 


STR 

SR 1»<DXFN.SR3 

001829 

OAbb 

9F00 

0000 

T 

STR 

SRI»<+SB 

001630 

0A70 

9870 

OOZE 


LDR 

SRU = 46 

001831 

0A72 

8280 

0FC4 


Lb 

<I DEN 9 =Z•8000 * 


0a74 

8000 





001832 

0 A75 

0580 


T 

BBF 

> + $A 


*********************************************************************** 

* TEST 1001 DYNAMIC READ-WRITE 

* 

* 


STORE TEST NO 
•START TEST* 
•OK TO WRITE ? 


•REPLY Y OR N 


NO 

YES 

SET BYPASS FLAG 

AND GET OUT 
SETUP LV10 1Sm 

GET CYL ADDRESS 
GET SECTOR ADDRESS 
SETUP FOR LVlO 
TIMING PROCESS 
GET DEV NO. 

GET CYU ADDRESS 
SETUP CYL ADDK FOR CWl 
STORE IN SEEK ROUTINE 
MAX 46 MS FOR 410 CYLS 
822 CYLS ? 

KEEP 46MS FOR 410 CYL DEV 




1 I 7 Lt SMDS2,* 

KtV C« 

1 1 SruRAbt 

HUOULE 

: 160, 

Ftb 18, 

1976 
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UU 1 6 3 3 

OA 7o 

9 A7 0 

000 A 



AOD 

4R 1, = 10 

MAX 56MS FOR 622 CyLS 

00 163<+ 

OA 7 b 

9F00 

0000 

1 

4A 

SIR 

4R1 ,< + $C 

STORE IN TIMING PROCESS 

Ou 1 633 

0 a 7 A 

0380 

00C6 



LNj 

$B5,<SKCYF 

SEEK 

—U U i 6 3 o 

0 A 7C 

UOOU 



46 

oc 

0 

CYL ADDRESS In HERf 

f x ; UU1 o 37 

Oa7u 

0380 

0L9L 



LNJ 

4B5,<7 IMDE 

TIME SEEK 

U U 1 6 3 6 

0 A 7 F 

UOOU 



4C 

DC 

0 

MAX TIME IN HtRE 

k+J- 001639 

0A80 

0F80 


T 


6 

> + $D 

TIME OK 

uu 1o40 

OAti 1 

0380 

0C85 



LNJ 

4B5,<TDLR 


0 U 1 6 4 1 

0 Ab3 

101*! 




OC 

2*1012* 

TIMEOUT ERROR 

00 lb4c 

0A84 

036 0 

OC50 


40 

LNJ 

4B5,<TAGI 


00 I o43 

0A66 

0700 




oc 

2*07* 


OU 1 b 4 4 

0A6 7 

6260 

0FE7 



Lb 

<TEFiPA , =2 • 20 * 

ON CYL ? 


0 A 6 9 

^000 







001643 

0A6 A 

0300 


1 


bbl 

> + 4t 


UO 1 b40 

0 A6L) 

0380 

0C8 5 



LNJ 

4B5,<TDER 


001o4 / 

0 A80 

1014 




DC 

2* 1014* 

NOT ON CYL 

OU1646 

0A8L 

1C0A 



4E 

LDV 

4R1 , = 4 

FOR 5 TRACK 

001b49 

0A6F 

6280 

UFC4 



Lb 

<1DLN,=Z*4* 

19 TRACKS ? 


0A9 1 

4000 







OU 1 o 3 0 

0 A9 *; 

0580 


r 


bbF 

> + $F 

NO 

Ouio5i 

0 a9 3 

ltut 




AOV 

4Ri,=14 

MAKE 19 TRACKd 

uulbbc 

0 A94 

9 F 00 

OF F 1 


4F 

SIR 

$R1 ,<TRKMX 

STORE MAX TRK 

o o 1 o 3 3 

0A9o 

8731 




CL 

= 4Ri 

START AT TRK 0 

oo 1 o54 

0 A 9 7 

9FU0 

OFFO 


T1001C 

STk 

$R1,<TRKAD 

NEW TRACK 

OU1b 3 3 






CALL 

ZV$T.ZV$TC,MSTKNO 

PRINT TRACK 


0A99 

FBCO 

O003 







UA9L) 

U3bU 

0000 

X 






UA90 

0F80 








Ua9l 

114a 







OOlbbO 






CALL 

ZV$ 1H.ZV4TD,TRkAD 



0A9F 

FbCO 

UU03 







OAAi 

0380 

0000 

X 






0 AA3 

0F8U 








0 AA4 

OFFO 







UU1657 

0 AA3 

b800 

Oh AC 



LOR 

4R3,<BITE 

GET DEVICE NUMBER 

oulbbb 

OAA 7 

9A80 

0000 

T 


SRM 

4R1,<*4F,=X*1F* 

PUT TRK ADDR IN COMMAND 


0 AA9 

00 1 F 







0ulb59 

OAA a 

1006 




SOL 

SRI ,8 

SETUP TRACK AjORESs 

001660 

OAAb 

9400 

OF 02 



OR 

4Ri,<5ECA0 

AND SECTOR AbDR 

OUlb6i 

OAAO 

9F30 

OFbO 



SIR 

4R1 ,<0XRN.$R3 

FOR CW2 

U01b6c 

OAAF 

0380 

0C52 



LNJ 

4B5,<TAG0 


OU1663 

UAbl 

0300 



4F 

OC 

2 * 0300 * 

5ELCT TRACK A0DRES5 

001b6* 

0 Abe 

0380 

0C50 



LimJ 

4B5,<TAGI 


OOlbbb 

0Ab4 

0200 




OC 

2 * Dc * 

GET DiAG REG 

OU 1 666 

0 Ab3 

8280 

OF E 7 



Lb 

<TEmPA,=2•80• 

HEAD StLCT ? 


0 Ab 7 

8000 







001667 

0 Atib 

0580 


I 


BbF 

> ♦ $A 

YES 

OOlbbb 

0AU9 

0380 

UC8 3 



LNJ 

4B5,<TDER 


001669 

OABb 

1016 




OC 

2*1016* 

NO HEAD SELECI 

0 0 16 7 0 

0 AbC 

0380 

OF 80 


4 A 

LNJ 

4B5,<SUFb 

SETUP FORMAT bUFFER 

0Uib7l 

0 AdL 

8166 



4b 

IbLD 

wBUF,<JOWRIT,<TEMPA 



OAbF 

0000 

11F 7 







0AC1 

0000 

UFE7 






OU 1 6 7*! 

0 AC3 

0 7 F b 




BIOF 

>-$b 


001673 

OACa 

0380 

OF 18 



LNJ 

$B5,<SUCA 

SETUP CONFIG. WORDS 

v- oO 167h 

OACo 

9800 

11E8 



LOR 

$R1,<FMRW 

FORMAT COMMANu 

f 001673 

OACb 

8051 



4C 

lu 

=$Rl,<0TTA5K 

TASK 

t 

0AC9 

0000 

11F 0 






{ 001676 

OACb 

07 FU 




blOF 

>-4c 


001677 

OACo 

0380 

OtP 8 



LNJ 

4B5 , < S T ALL 

STALL 

00167b 

0 ACL 

OF 80 


r 


6 

>♦$0 


001679 

OACF 

0380 

OC85 



LNJ 

4B5,<T0ER 


OUlbBO 

0 AO 1 

1030 




OC 

2* 1050* 

FORMAT HANGUP 

001681 

UAU2 

0380 

oC50 


40 

LNJ 

4B5,<T AG 1 


00168c 

0 A04 

0700 




OC 

2 • D7 * 


UU108 6 

0 A03 

8280 

0FE7 



Lb 

<TEMPA,?2»01» 

TEST DIAG BIT 


0AD7 

0100 







001884 

OA06 

0580 


7 


bbF 

> + $A 


001883 

0 A09 

0380 

0C50 



LNJ 

4B5,<TAGI 


001686 

0 Abb 

0200 




OC 

2*02* 


001687 

oaUc 

0380 

U046 



Lnj 

4B5 , <SBIS 

GET Sb/IS DATA 

00168b 

OAOL 

0001 




oc 

X'Oi * 

DONT CARE BIT 

001689 

0 aof 

0380 

0C85 



LNJ 

4B5 , <TDLR 


Ou1890 

OAti 

1020 




OC 

2'1020* 

PRINT DEVICE FAULTS 

001691 

OA 12 

038U 

UE91 


4A 

LnJ 

4B5 , <LV105U 

SETUP LV10 RUPT 

001 692 

0 At4 

0EB2 




OC 

<LV10T1 

TIME DEVICE EvENT 

001b93 

0AL5 

1C01 




LDV 

$R1,=1 


001694 

0 At6 

8051 



40 

lu 

=4Ri,<0T0FRG 

OFFSET RANGE = 1 


0 At 7 

0000 

11F8 






001693 

0AL9 

U7F0 




b I OF 

>-$0 


001896 

OAtA 

8751 




CL 

=$Rr 


001697 

0 Atd 

8180 

0FE7 


4A 

1 OLD 

<TE|V|PA,<J0READ, = $R1 

RANGE = 0 


OAtO 

UOOU 

11F 6 







OALF 

0051 







001b9o 

OAF 0 

0 7F b 




blOF 

>-$A 


001b99 

OAFi 

0380 

OF 18 



LNJ 

4B5,<SUCA 

SETUP CONFIG. WORDS 

UU 1 900 

0 AF3 

9800 

11E9 



LOR 

$R1,<RWD 

SEARCH AND REaD 

001901 

OAF 3 

8051 



46 

10 

= $Rl , <OTT ASK 

TASK 


OAF 6 

0000 

11FD 






OU190c 

OAF 6 

07 F 0 




b 1 OF 

>-4b 


Ou1903 

OAF 9 

0380 

0E9E 



lnj 

465 ,< TIMDE 

TIME DEVICE TILL RUPT 

001904 

OAFb 

0019 




DC 

25 

MAX 25MS 

001903 

OAFC 

0F80 


T 


b 

> + 4t 

OK 

001906 

OaFO 

OF 7F 




NOP 

>4-1 

XXXXXX 

001907 

OAFL 

0380 

0C85 



LNJ 

4B5 , <TOLR 


001906 

ObOU 

1016 




DC 

2*1018* 

SECTOR NOT FOuND In 25MS 

001909 

obui 

bBOO 

OF AC 


4t 

LOR 

4R3 , <BIT L 

GET DtV ADDR 

001910 

0bU3 

0380 

OF i 8 



LNJ 

$B5 , <SUCA 

SETUP CONFIG. WDS 

001911 

0b03 

9870 

012C 



LOR 

4R1 , = 300 

DIAG FORMAT RtAD RANGE 

00191*; 

0 b 0 7 

8184 



4F 

I OLD 

RBUF ,< IOREAD,s$Rl 



0b08 

0000 

11F6 







ObUA 

0051 







001913 

ObOb 

07K 




BIOF 

>-4F 


OU 1 9 14 

oboe 

9670 

8 AOO 



LOR 

4Rl,=2»8A* 

DIAG READ CMD 

001913 

ObOt 

8051 



4G 

10 

= $R1 , <OTT ASK 



ObOF 

0000 

11FD 






001916 

Obi 1 

07 F 0 




BIOF 

>-$G 


00191/ 

Ob 12 

0380 

OLF 8 


4H 

LNJ 

4B5 , <5T ALL 

STALL 

f 001*16 

Obl4 

OFbO 


T 


b 

• > + $D 


I 001919 

Ob 1 3 

0380 

0C85 



LNJ 

4B5 , <TDLR 


k -y 001920 

Obi 7 

1052 




OC 

2*1052* 

FORMAT READ HANGUP 

001921 

0bl8 

9844 

0009 


40 

LOR 

4R1,RBUF.9 

GET SYNCH BYTt 

001922 

ObiA 

9970 

0019 



CMR 

$R1 ,=X*19* 
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061923 

ObiG 

0900 


T 


BE 

>4$A 

OK 


001924 

ObiD 

0380 

0C85 



LNJ 

SB5,<TDER 



00192S 

Obi F 

1032 




DC 

Z* 1032* 

NO SYNCH BYTE 


00192b 

0b20 

9804 



SA 

LOR 

SRURBUF 

GET CYL ADDR 


00192 7 

Ob2 1 

9900 

OFAO 



cm 

SR1 1 <CYAD 


d % 

001926 

Ob23 

0900 


f 


bE 

>4$b 


If] 

001929 

Ob24 

0380 

0C85 



lnj 

SB5,<TDER 


Jjr 

OU1930 

0b26 

1026 




DC 

2*1026* 

CYL ADDR ERROR 


001931 

Ob2 7 

9004 

0001 


SB 

LDH 

SRURBUFU 



0Ul93^. 

0629 

9900 

OFFO - 



CHR 

$R1,<TRKAD 



001933 

Ob2b 

0900 


T 


bE 

> 4 SC 



001934 

062C 

0380 

OC85 



LNJ 

SB5 »<TDER 



001935 

0626 

1026 




DC 

Z * 1026 * 

TRK ADDR ERROR 


00193b 

Ob2F 

9844 

0001 


$C 

LOR 

SRURBUFU 

GET SECTOR ADoR 


001937 

0631 

9570 

OOFF 



and 

SR U = X • FF * 



00193b 

0633 

9900 

0FD2 



CHR 

SRU<SECAD 



001939 

0633 

0900 


T 


BE 

>4$D 



001940 

0636 

0380 

0C85 



LNJ 

SB5,<TDER 



001941 

0638 

1028 




DC 

Z*1028* 

SECT ADDR ERRuR 


001942 

Od3 9 

0380 

0C50 


SO 

LNJ 

SB5 * <TAGI 



001943 

063b 

0700 




DC 

Z' D7 * 



001944 

Ob3C 

8280 

OF E7 



Lb 

<TEhPA »=Z * 01• 

DIAG BIT ? 



Ob3b 

0100 








001943 

063P 

0580 


T 


bbF 

>4$t 



00194b 

0640 

0380 

0C50 



LNJ 

SB5 »<T AG I 



001947 

0642 

0200 




DC 

Z»D2» 

DIAGS 


00194b 

0643 

0380 

0046 



LNJ 

SB5 1 <SBIS 

SB/IS PRINT 


001449 

0643 

0001 




DC 

X»Oi * 

DONT CARE BIT 


00193U 

Ob4b 

0380 

0C8 5 



LNJ 

SB5 * <1DER 



001951 

064b 

103b 




DC 

L * 1036 * 

READ DIAG ERROR 


Ou 195c 

0649 

AC80 

0FC6 


SE 

LDb 

S62,<JJPT 

GET BUFFER ADuR 


001953 

0646 

AF 80 

0000 

T 


STB 

SB2,<4$F 



001934 

0640 

0380 

0F2 3 



LNJ 

SB5,<FLBF 

FILL BUFFER WITH String 


001953 

064T 

OFF 6 




DC 

<WOKSC 

WORST CASE PAfTERN 


001956 

0630 

0005 




DC 

5 

STRING LNGTH 


001957 

0651 

0000 



SF 

RLSV 

SAF,0 

BUFF ADDRESS 


OU 195b 

0652 

0080 




DC 

128 

WRITE BUFF LNuTH 


001959 

0633 

AC80 

0 P C 7 



LOb 

SB2 * <KKPT 

GET READ BUFF ADDR 


001960 

Ob3 3 

AF80 

0000 

T 


STB 

SB2 *< + $G 



001961 

065 7 

0380 

0F23 



LNJ 

SB5 * <FLBF 

FILL BUFF 


0019641 

0659 

OF 00 




DC 

<NULL 

FILL ADDR 


001963 

063 A 

0001 




DC 

1 

1 WD STRING 


061964 

0656 

0000 



SC 

RLSV 

SAF *0 

READ BUFF ADDk 


001963 

0650 

0096 




DC 

150 

LENGTH IN WORuS 


00196b 

0630 

9870 

0100 



LOR 

SR U = 256 

WRITE RANGE 


00196 7 

063 f- 

8 186 



SA 

1UL0 

vvbUFi<IQWRIT * =$R 1 

WRITE WORST CmSE 



0660 

0000 

11F 7 








Ob 62 

0051 








001966 

0663 

07FC 




biOF 

> —SA 



001969 

066 A 

0380 

OF 18 



LNJ 

SB5,<SUCA 

reset CONFIGUkATIOn words 


001970 

0666 

9800 

11E9 



LOK 

SR1 1 <RWD 

WRITE COMMAND 


001971 

0668 

8051 



Sb 

lu 

.=$R U <OTTASK 




0669 

0000 

UFO 







001972 

066b 

07 F 0 




BIOF 

>-$b 



OU 19 7i 

0660 

0380 

OtF 8 



LNJ 

SB5,<STALL 

STALL 


001974 

ObbL 

OF 80 


r 


b 

>4$6 


■'V 

001973 

Obof- 

0380 

0C8 5 



LNJ 

SB5,<TDER 



OU 197 b 

0671 

1054 




DC 

L. * 1054 * 

WRITE DATA HANGUP* 


0U14 7 7 

0672 

0380 

0C50 


SO 

Lhj 

SB5,<TA61 


\ 

00197o 

06 74 

0700 




DC 

2*D7* 



001979 

Ob73 

8 2 80 

0 F L 7 



Lb 

<TEhPA *=Z'Oi• 

GET DIAG BIT 



067 7 

0100 








00196U 

Ob 7 b 

0580 


1 


bbF 

>4$C 

OK 


001981 

Ob 79 

0380 

0C50 



LNJ 

SB5,<TAGI 



00 I 984 ; 

067b 

0200 




DC 

Z'D2 * 



001983 

0670 

0380 

004b 



LNJ 

SB5,<SBIS 

GET SB/IS DATA 


001984 

06 7L 

0001 




DC 

X*01* 

DONT CARE BIT 


001985 

06 7 F 

0380 

0685 



LNJ 

SB5,<T0ER 



00198b 

068 1 

102 U 




DC 

Z* 1020* 

PRINT DEV FAULTS 


001987 

0 68 2 

6800 

OFAC 


SC 

LUK 

SR3»<blTE 

GET DEV ADDR 


OU198b 

0684 

0380 

OF 18 



LNJ 

SB5 * <5UCA 

SETUP CONFIG. WORDS 


001989 

0686 

9870 

0100 



LDR 

SR U =256 

DIAG FORM REAu RANfiF 


001990 

0688 

8184 



SO 

lULD 

RBUF,<I0READ*=SR1 




068 9 

0000 

11 F 6 








0686 

0051 








001991 

0680 

07 P C 




biOF 

>-S6 



001994 

0686 

A870 

8980 



LDR 

$R2,=2*898* 

READ DATA 


001993 

068F 

8052 



SE 

lu 

=SR2,<0TTASK 




Ob9u 

0000 

UFO 







001994 

0692 

0 7 F 6 




BIOF 

>-Sb 



001995 

0693 

0380 

0 L F 8 


“SE 

LNJ 

SB5»<ST ALL 

STALL 


001996 

0693 

OF 80 


T 


b 

> 4 SO 



001997 

069b 

0380 

0G8 5 



LNj 

SB5,<TDEk 



00199b 

0698 

1056 




DC 

Z* 1056* 

READ DATA HANuUP* 


001499 

0 699 

9876 

0100 


SO 

LDR 

SR U = 256 



002000 

0b9b 

9F54 




STR 

$RU=$R4 

GET RANGE IN dYTES 


002U01 

0690 

4041 




SuK 

SR4,i 

CHANGE TO WORuS 


002004 

0b96 

6804 




DLC 

= SR4 

SET WORD COUNTER 


002003 

0696 

8 752 




CL 

= SR2 

CLEAR BUFF INoEX 


062004 

OdvP 

ACO 4 




Lub 

SB2 9 = RBUF 

SETUP FOR B-PuP ADdR 


002 uO 3 

06au 

E826 



T 10010 

LDR 

SR6 * WbUF•SR2 

•SB* DATA 


00200b 

ObA 1 

F 86L 




LDR 

SR7UB2.4SR2 

•IS* data 


002007 

0 6 A 2 

6957 




CHR 

SR6 » =$R 7 

CHECK DATA 


002o0b 

0 b A 3 

6900 

ObL2 



bL 

<T1001E 

OK 


002009 

Ob A3 

A F 0 0 

0FE9 



STR 

SR2 * <T EHPC 

ERROR WORD LOCATION 


O 04 OI 0 

ObA 7 

8906 

OFC1 



LOT 

<ERFL*=X*1* 

SET ERROR FLAva 



0bA9 

0001 








00201 1 






CALL 

ZVST.ZV$TC*MSaORD 

PRINT WORD 



0 b A A 

FbCO 

0003 








0 6 AO 

u 386 

0006 

A 







06A6 

6F86 









0 6aF 

1196 








002OU 






CALL 

ZVSrHUEhPC 

PRINT HEX WORj 



066U 

FbCO 

0603 








Obb2 

6386 

0000 

A 







0664 

OF 86 









0 663 

0FE9 








002013 

Obbb 

8066 

OP 6 7 



SD 1 

< TEHPA 

STORE IS/SB DATA 

- 'X 

002 u1 4 






CALL 

Z VS ( ,MSIS 

PRINT 'IS* 



066b 

FBCO 

0003 






1 w 


06DA 

0380 

0000 

A 







ObbC 

6 F 8 0 









0 660 

1198 










TITLE SMDS2,*REV G* , STORAGE MODULE TfaD, FEb 18, 197b 
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002015 



Obbt 

FBGO 

0003 


odGo 

0380 

OOOO 


ObG* 

OFfaO 



ObG3 

0FE8 



0BG4 

0FA8 


0U2O16 

ObG5 

FbGO 

0003 


ObGT 

0380 

OOOO 


0bG9 

OF 80 



ObGA 

OF A8 


00*017 

ObGb 

FbGO 

0003 


ObGO 

0380 

OOOO 


UbGF 

OF 80 



ObDO 

110A 


00201b 

Obol 

FBGO 

0003 


ObD3 

03b0 

OOOO 


Obu3 

OF 80 



UDUfa 

0FE7 



ObDY 

OFAfa 


002019 

ObOb 

FbGO 

0003 


ObDA 

0380 

O000 


ObUG 

OFfaO 



ObDb 

OFAfa 


Ou2 020 

Ob Ob 

0380 

003 3 

002021 

ObLO 

Obt2 


002O2* 

ObE 1 

OOOO 


0O2o2 3 

Obt2 

4 700 

ObAO 

0O2O24 

Out A 

8280 

0FG1 


0 bt 6 

0001 


002025 

o dE 7 

05fa0 


002026 

ObEb 

0380 

OGb 5 

U0202 f 

ObE a 

1034 


0o2u2b 

ObEb 

9800 

OFFO 

Oo2u29 

ObLO 

8 AO 1 


002030 

ObLE 

9900 

OFF! 

002o31 

Ob Fu 

0380 

0A97 

00203* 

0 b F 2 

0380 

OGDD 

002033 

Ou2u3a 

OdF 4 

1001 



0 d F 5 

FbGO 

0003 


0 b F 7 

0380 

OOOO 


0 b F 9 

0F80 



ObF A 

1 OF fa 


002035 

ObFb 

OFfaO 

0100 


UU203o 

0U2037 

00203b 

002039 

0u2u4U 

002041 


0020B1 
fau2u8* 
(JU*C83 
uu2u8a 
U02U89 
0U2 08o 
002087 
0U208o 


OG** 
0G23 
OG*A 
oC2 5 
0 C2 o 


0000 

0000 

0000 

0000 

oooo 


GALL ZVShZ * TEMPO*ASCBF 


GALL ZVSl iASGBF 


GALL ZVSWMSSb 


CONV •IS* DATA ASCTI 


PRINT HEX * IS* DATA 


PRINT •SB* 


GALL ZVSHZ* TEMPA *ASCBF CONV »SB» DATh ASCjI 




$A 


gall 

ZVST *ASGbF 

PRINT HEX »Sb» 

LNJ 

SB5 * <QUlT 

HIT BREAK TO ui 

DG 

<TluOlE 

continue 

OG 

< + SF 

EXIT 

bDEG 

$R4,<T1001D 

GET NXT WORD 

Lb 

<ERrL *=X•1 * 

ANY ERRORS ? 

bbF 

> + 4 A 


LIMJ 

$B5 «<TD£K 


OG 

Z»1034* 

DATA ERROR 

LOR 

SRW<TRKAD 


X ihG 

= $R 1 

GET NEXT TRACK 

GMR 

SRI*<TRKMX 

LAST TRACK ? 

bit 

<T 1001C 

GO AGAIN 

LNJ 

SB5 *<TDTL 

END TEST 

OG 

Z»1001• 


GALL 

ZVSI*ZVSTC*MSETD 

END TfaD TESTS 

b 

<START 



************************************** ********************************** 

* SPARE SUdRUUTINt 

* 


00204* 

ObF 0 

0F7F 

LL NUP 

>4-1 

002043 

ObFb 

OF 7F 

NUP 

>4-1 

0 U2 U4A 

ObF F 

0F7F 

NUP 

>4-1 

002045 

OGOO 

OF 7F 

NuP 

>$-i 

0u204o 

OGOl 

0F7F 

NOP 

>4-1 

00*047 

OG 02 

OF 7F 

NUP 

>$-1 

O020A8 

OCoS 

0 F 7 F 

NUP 

>$-i 

002049 

CGOA 

0F7F 

NOP 

>S-l 

0o2o50 

OGO 5 

0F7F 

NOP 

>$-I 

002051 

GCOfa 

OF 7F 

NUP 

>$-l 

00*05^ 

OGO 7 

OF 7F 

NOP 

>$-l 

002053 

OGOo 

0 F 7 F 

NOP 

>4-1 

Oo2o5a 

0CO9 

0F7F 

NOP 

>$-l 

002055 

OGOa 

0 F 7 F 

NOP 

>$-1 

oo*o5o 

OCOb 

OF 7F 

NOP 

>$-i 

002057 

OGOO 

OF 7 F 

NUP 

>4-1 

U02o5fa 

OGOD 

OF 7 F 

NUP 

>4-1 

002059 

OGOL 

OF 7 F 

NOP 

>$-l 

0 0 2 0 fa 0 

OGOF 

OF 71 

NOP 

>S-i 

0 0 * 0 fa 1 

OG 10 

OF 7 F 

NOP 

>S-1 

00<:Ofac 

0 G 1 i 

OF 71 

NOP 

>4-1 

0 0 2 o fa ^ 

0012 

OF 7 F 

NUP 

>4-1 

0 0 * 0 fa A 

0013 

OF 7 F 

NOP 

>S-1 

002065 

001 A 

0F7F 

NOP 

>4-1 

Ou2ofao 

0015 

0F7F 

NOP 

>4-1 

O0*0fa l 

OGlfa 

0 F 7 F 

NuF 

>4-1 

0o2o6b 

CGI 7 

OF 7F 

NOP 

>$-l 

002069 

OGifa 

01 7 F 

NUP 

>S-i 

oU2 07 0 

0 C1 9 

0F7F 

NOP 

>$-l 

002o71 

001 A 

0F7F 

NOP 

>4-1 

00207* 

00 1 u 

0F7F 

NOP 

>$-i 

00*07 o 

0010 

OF 7F 

NUP 

>4-1 

00*07A 

OGlO 

OF 7 F 

NOP 

>4-1 

002075 

OClL 

0F7F 

NOP 

>4-1 

0 0 * 0 7 fa 

OG 1 F 

0F7F 

NOP 

>4-1 

002077 

0020 

OF 7F 

NOP 

>4-1 

0 0 2 0 7 fa 

0021 

OF 7F 

NOP 

>4-1 

002079 



* 


0O2O80 



* ROOM FOR 

gonst ants 


KtSv SAF *0 
RESv SAF»0 
KESv SAFfO 
RtSV SAF»0 
RESV SAF * 0 

************************************************************************ 
**** ******************************************************************** 
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U02U89 
0U209U 
00c U9i 
002092 
Gu2u93 
UU2094 
002095 
004096 


002i22 
002 12i 
002124 
002 12 5 
002126 
002127 
00212b 
002 129 
002130 
002131 
002 13b 
002i33 


U02134 

Oo213 6 
002136 

002137 
00213b 
002139 
00214u 
002141 
002144 
002143 
0 o 2144 
002143 
002146 
00214 7 
00214b 
002149 
Ou215u 
002131 

00216c 

002163 

002154 

002155 


00215c 


002157 
002 1 5b 
002159 
002160 
002161 
U02162 

002163 
002164 


0C30 
0C5 1 
OG 5 2 
0C5 3 
005 5 
0057 
0059 
005 A 
0050 
0C5u 
006L 
005F 
0061 
0Co4 
0064 
006b 
006 / 
0069 
0C6b 


B 7 54 
OF BO 
4040 
OF 00 
0400 
BIBO 
0054 
0000 
0 7 F b 
OB 7 5 
6054 
0000 
0 7F 0 
OF 6 0 
6960 
0300 
0360 
0060 
6365 


OF 04 
1 IF 6 
OPE 7 

OF AF 


UFO 

0060 
OF 04 

OF 12 
0060 


0060 0000 


0C6u 

OF 60 

0060 

00 6 F 

03B0 

OF 7b 

00 71 

FbCO 

0003 

0073 

o38o 

O000 

00 75 

OF 80 


0076 

1161 


0077 

FbOO 

0003 

0079 

0380 

0000 

0C7d 

OF 80 


0070 

OF Lb 


0070 

0060 

0080 

00 7 F 

B3b6 


0060 

0000 



/*********************************************************************** 

* 

* subroutines 

* 

********************************************************************** 

* FAULT RESEl/REAuY CHECK ROUTINE 

* 


002097 

002 7 

UP 80 

0C4P 


FRRC 

STB 

$65* <FRRCB5 

TAG OUT 

002u9b 

0029 

D36U 

UC52 


FRRCA 

LNJ 

$B5,<T AGO 

004U99 

002b 

U2 70 




00 

2*0270* 

CLR DIAG FAULIS 

002100 

0020 

U360 

0050 



LNJ 

$B5,<TAGl 

TAG IN 

002101 

0 04 E 

07 00 




DO 

2 • D7« 

control BYTE 

OOUOc 

002 F 

8260 

OF E7 



Lu 

<TEmPA,=2*10* 

UNIT READY ? 


0031 

1000 







002103 

0034 

0560 

0049 



bbF 

<FRkCC 

ERROR 

0 0 2 10 H 

0034 

6260 

UFE7 



Lb 

<TEMPA,=Z * 01• 

DIAG BIT ? 


0036 

0100 







Ou2 106 

00 37 

0560 

0040 



bbF 

<FRRCB 

OK 

00210c 

0039 

036 0 

0050 



Lnj 

$65,<TAGI 


0 u 2 10 7 

003b 

0200 




00 

2*02* 


00210b 

0030 

8260 

0FE7 



Lb 

<TEmPA» ~2 *FE * 

CHECK FOR ANY PAUL 


003L 

FLOO 






002 109 

0C3F 

0500 


1 


bbT 

> + $A 


002110 

0040 

0380 

OC85 



LNJ 

$B5,<TDER 


00411 1 

0044 

0006 




DC 

2*0008* 

NO FAULTS SHOEING 

004 1 l 4 

0043 

0360 

0046 


$A 

LNJ 

$B5,<SBIS 

GET SB/IS OATm 

002113 

0045 

0001 




00 

X*Oi» 

TEST ALL EXCLPT PF 

Ou211h 

0046 

U3bO 

uCB 5 " 



LNJ 

$B5♦<TDER 

002116 

0C46 

0010 




DO 

2*0010* 

DISPLAY BITS uET 

002116 

0C49 

0360 

0085 


FRRCC 

LNJ 

$B5, <TDER 


002117 

0C4b 

0096 




00 

2*0096* 


002116 

0C4C 

OCBO 

004F 


FRRCB 

LOb 

$B5,<FRRCB5 


002119 

002120 

0C4t 

6385 



* 

JMP 

$B5 


002121 

00 4 F 

0000 



FRKCB5 

RLSV 

$AF * 0 



************************************************************************ 

* LAUNCH lu 1AG COMMANDS 

* 

* 

FAgI 


tago 

$A 


$A 


$b 


SC 


CL = $R4 

b > + $A 

LOV $R4,=X*40* 

SIR $R4, <T ASK 

OR $R4,<1 OREAD 

1UL0 <TEMPA ♦ = $R4 ,<D"*1 


b I OF >-$A 

LOR $R4,+ $B5 

10 =$R4,<0TTASK 


SET DIRECTION BIT 
SET DIRECTION BIT 


OUT 


biUP 

ST b 

CM2 

bG 

LNj 

Lob 

JMP 


>-$D 

$b5,<TAG5 

<T ask 
> +• $c 

$B5,<I ST AT 1 
$65,<T AG5 
$B5 


GET 6DATA 
OUTPUT TASK WORD 


stall 


TAg 5 RESv $AF*0 
* 

* 

*********************************************************************** 
* START TEST 


* 

TOST 


Sib $B5,<T~DSTB5 

LNJ $B5,<CRLF 

CALL 2V$1 »ZV$TC,MSTEST 


CALL 2V$TH2,TEST 


•TEST* 


print test no 


LOb 

JMP 


$B5,<TD,ST65 

$B5 


F0STB5 RlSv $AF, 0 

* 

* 

********************************************************************** 

* 

* 


002166 

OCbi 

6260 

OF C1 


TOtRl 

Lb 

<ERFL,=X*02* 

TEST FOR CONTINUE MOC 


0C8 3 

0002 







002167 

0C64 

0500 


1 


bul 

> + $C 


00416b 

0C85 

6F 00 

U F 0 5 


TOLR 

save 

<SAvE~l,=-l 

SAVE REGISTERS 


0C8 7 

FFFF 







002169 

OCbb 

C800 

OFEB 


$C 

LOK 

$R4,<TEST 

GET TEST NUMEitR 

002170 

0C8A 

C570 

F F 00 



AND 

$R4,=Z*FF« 

STRIP SUBTEST 

002171 

OCbC 

C47 5 




OR 

$R4,+$B5 

GET DICTIONARY ENTRY 

002172 

OC 60 

OF 60 

OCOC 



STB 

$B5, <7 DERB5 

SAVE CONTINUE ADDR 

002173 

OCbF 

CFOO 

115 7 



STR 

$R4,<MSDICT 

PUT IN MESSAGl 

002174 

0C9 1 

FbCO 

0003 



CALL 

2V$1•2V$TC,MST OER 

PRINT ERROR MlSSAGf 


0C93 

0360 

0000 

A 






0C9 5 

0 F b 0 








0C96 

113b 






WITH DICT ENTRY 

u02175 

0C9 7 

FbCO 

0003 



call 

2V$1H2,MS0ICT 



0C99 

0360 

0000 

X 






0C9b 

OF 60 








0C9L 

115 7 






IS ? SB DATA PRINT ? 

002176 

0C90 

6260 

OF C5 



Lb 

<IPFL,=X*2» 


0C9F 

0002 
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UU2177 

OCAo 

0560 


1 


bbP 

>+$A 

NO 

00 2 178 

0 C A i 

0360 

uF 33 



LnJ 

$B5 *<P1 SBC 

PRINT 1S/SB Data 

002 i7v 

0CA3 

8300 

0PC1 


$A 

LdT 

<ERPL » = 2* 0001 * 

SET ERROR FLAy 

.% 

0CA5 

0001 







M 002180 

0CA6 

8600 

0FC5 



LdP 

<IPPL»=X*2» 

CLEAR IS/SB PkINT FLAG 

1 

0CA6 

0002 







002181 

0LA3 

8800 

UFC2 



LdP 

<FLAO«=Z»10* 

OVFLOlN FLAG 


OOAd 

1000 







0 o 2 182 

OCAC 

0580 


1 


bbF 

> + $C 


002 18 3 






CALL 

IMS (,MSTMOF 

OVLRPLOW MSG 


OCAU 

PbCo 

0003 







UC AF 

0380 

0000 

A 






UCbi 

Op 60 








0Cb2 

116 7 







002184 

UCb3 

8280 

OPCi 


$C 

Lb 

<ERP L♦ = X•02 * 

continul 


oCb3 

0002 







00218b 

OCob 

0560 


i 


bbP 

> + $b 

EXIT 

002180 

OLD/ 

0C60 

OCDC 



LDb 

$B5,<TDERB5 

GET CONTINUE aDUR 

002187 

Olu3 

8383 




JMP 

$B5 


002186 





$b 

call 

ZV$I.ZV$TC»MSREGS 

PRINT ALL RLGISTERs 


OC.DA 

PbCO 

0003 







OCbC 

0360 

0000 

A 






OCbE 

OF 80 








GCbF 

1 lAfa 







002 113S* 

uccu 

0360 

0F7b 



LNJ 

$65 *<CRLF 


U02 2 Ob 

OCO*i 

3b60 

UPD3 


T DEk2 

LAB 

$B1,<SAVE~1 

GET REGISTERS 

Oo2c0v 

0 CL4 

4CPC 




LUV 

$k4*=-4 

LINE COUNTER 

002210 

UCCj 

CP 00 

0Fh9 


$C 

SIR 

$R4,<1EmPC 

SAVE IT 

002^11 

UCC7 

5 CPC 




LUV 

ik5»= -4 

4 words per line 

00 2 2 1 2 

GCCa 

PCP 1 



$E 

LOb 

$67 1 +$Bl 

GET DATA 

0022 13 

GCC9 

0380 

0EL2 



LNJ 

$b5i<LNGASC 

CONVERT TO ASCII 

0022 14 






CALL 

2V$[* LNGAD+$AF-1 

PRINT DATA 


oCCb 

PbCO 

0003 







OCCb 

0360 

0000 

A 






gccf 

OP 80 








ocuo 

OFCa 







0022 13 

OCbl 

3 7 F 7 




bihC 

$R5»>-$E 

GET NEXT DATA 

Ou 22 lo 

0CL»2 

0360 

OP 7b 



LNJ 

$b5 1 <CKLF 

START NEXT LInE 

o u 2 2 1 7 

0 C 04 

C800 

OP 6 9 



LOK 

&R4 * <TEMPC 

GET NEXT LINE 

UUcclo 

GCUO 

4 7 L P 




DiNC 

$R4 y >-$C 


002 <. 19 

OCU 7 

0380 

ucDd 



LNJ 

$B5♦<T DTE 

END THIS TEST 

0022 2u 

UCU9 

000 0 




DC 

X»0* 

S/R WILL INSERT TEST NUMBER 

002221 

OCDa 

0P 60 

uioo 



D 

< ST aRT 

RETURN TO RESfART 

0 0 2 2 2 c 





* 




00222b 

0 CDC 

0000 



TDtkb5 

KL5V 

$AF ♦ 0 


0022 2 H- 





* 




002223 





****************** *************************************************** 

00222b 





* PRINT TtST 

END MESSAGE 


002227 





* 




002226 

OC Ou 

C8 7 5 



TUT L 

LUK 

$R4,*$B5 


0o222V 

OCUc 

OP 60 

OD0A 



S| b 

$B5,<TDTEB5 


002c3o 

OCLO 

C400 

OP Lb 



Ok 

$R4,<TEST 

ADD TL^T NUMbtR 

002231 

UCL2 

CPOO 

1162 



STk 

$R4,<M5Tt 


0022 3*. 






CALL 

2V$IHZ»MSTE»LFCR 



0Cb4 

PbCo 

0003 







GCbo 

0380 

0000 

A 





£ 

OOfcib 

OP 80 







1 

0(_L3 

1 162 
i i L» z 







002233 

oCt A 
OCLb 

Ur Lo 
8600 

0PC2 



LbP 

< FLAG 1 sX * 02 * 

TEST bVPASS A.mD RESFT 


ocEu 

OOO 2 







0 0 2 2 3 M 

OCEb 

0560 


1 


bbP 

> + $C 


0o2*.33 






CALL 

ZV$I*MST6P 

BYPASS MSG 


OClF 

PbCO 

0003 







GCF 1 

0360 

0000 

A 






OCFs 

OF 60 








UCF4 

117b 







002 2 3b 

00-3 

OP 60 


1 


D 

> + $o 


002237 

OCPb 

6800 

OPCI 


$C 

LbF 

<LRPL,=Z*0001* 

TEST FOR ERRORS AND RF5ET 


ocFa 

0001 







00223c 

0 C P 9 

0 500 


1 


bbl 

> + $A 


■ 002233 






CALL 

ZV$T,MSTEP 

TEST PASSED MESSAGE 


OCP A 

PbCo 

0003 







GCFC 

0380 

0000 

A 






OOP L 

oPbO 








OCP P 

1170 







0 0 2 2 4 o 

Ob'OO 

oF P 5 


1 


b 

> + $o 


002241 





it) A 

Call 

ZV$I*MSTtF 

TEST FAIL MESSAGE 


0001 

PbCO 

0003 







0 00 3 

0380 

UOOO 

A 






0003 

O-pbO 








OuOb 

1163 







002*14^. 

000 7 

0C60 

000 A 


$d 

LUd 

$B5 *<TDTEb5 


00c24b 

0003 

8385 




JrlP 

$B5 


002244 





* 




0022 43 

0 00 A 

0000 



T DTEb5 

kt_SV 

$AP »0 


002 *. 4b 





* 




002247 





* 




002c4o 





*********************************************************************** 

002243 





* YLS 

OR NO 

KtSPONSE 


0022 50 





* 




0022 5 1 





* LNJ 

$t>5 *<YSNu 


002252 





* • N • 

KLTUkN 



002253 





* • Y * 

KLTURN 



002254 

ooob 

0F80 

U032 


YSNG 

STB 

$B5 * <YSN0B5 


002253 





$ A 

CALL 

ZV$1A*ZVSTAT *TEMPC 

input •y* or *n• Response 


0000 

PbCO 

0003 







OOOF 

0360 

UOOO 

A 






0011 

0F80 








0012 

OPPC 








0013 

0Ft3 







002236 

0014 

C600 

0PL9 



LOR 

$R4,<TEMPC 


002257 

0016 

4046 




SUH 

$R4,a 

SHIFT IT 

00225b 

0017 

C9 70 

0059 



CNR 

$N4,=X*59« 


002253 

0013 

0900 


T 


bL 

> + $b 

IT IS •Y* 

002260 

OOiA 

C970 

U04E 



CMk 

$R4,=X*4E‘ 

IS IT *N* 7 

002261 

UU1C 

0900 


T 


b£ 

>+$c 

IT IS 

002262 






CALL 

ZV$T.ZV$OCtMSBLNK 

? NEITHER 

I ^ 

0010 

FbCU 

0003 






1 

001P 

0380 

UOOO 

X 





V 

0021 

OF 60 








0022 

1042 







002263 

0023 

OF t A 




b 

< 

1 

A 

RETRY 



TITLE SM0S29• 

REV C» 

' * STORAGE 

MODULE T6D, 

FEB 18 

» 197b 
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002264 

0024 

DC60 

0032 


SB 

LOB 

SB5 9 <YSN0B5 



Ou2<:63 

U 0 c 6 

DBC5 

0001 



LAB 

SB5 9 SB5•SAF 

BUMP RETURN ADDRESS 


002266 

002 b 

OF 80 

0032 



STb 

$B5 9 <YSNQB5 



00ZZbl 

002 A 

0380 

0E38 


SC 

LNJ 

SBS9<TIHE 


"‘ r v 

002268 

002 C 

03 Lb 




DC 

1000 

WAIT 1 SEC FOR ANY CRLF 

if ^ 

00Zeb9 

002 O 

0360 

0F7B 



Lbl J 

SB5,<CRLf 

THEN SEND ONE 


OOZZlO 

002 F 

OC60 

0032 



LOB 

SB5 9 <YSN0B5 


00227i 

0031 

6380 




jmp 

*SB3 



002272 





* 





OoZZ 73 

0o32 

0000 



YSN0B5 

RcSv 

SAF 9 O 



OoZzIh 





* 





0 0 2 2 7 3 





* 





OOZZl b 





************* * ******* **************** it******************************** 


00 Zell 





* TEST 

FUR ATTENTION FROM CONSOLE 



00Zel b 





* IF BREAK« 

INCREMENT RETURN 



OOZZlZ 





* 





OOZeBO 





* 





OOeZBl 

0033 

OF 6 0 

0043 


QUIT 

STB 

SBS 9 <UUITB5 



OOZeBc 






CALL 

ZVSokK 

TEST FOR BRK 



0033 

FbFO 

0001 








003/ 

0360 

0000 

A 






002283 

0039 

6960 

0000 

X 


CMZ 

<ZVa»bKF 

BREAK=1 


OOZZS^ 

o03d 

0900 


T 


Dt 

>*$A 

NO bRK 


OOZeBb 

003L 

OC60 

0045 



LOb 

SB5,<QUITB5 



OOZeBb 

003L 

0BC5 

0001 



LAB 

$B5,Sb5.sAF 

BUMP RETURN AuDRESs 


OOZeBl 

0040 

0F60 

0045 



STb 

SB5,<QUITb5 



OOZeBB 

0042 

OC60 

0043 


SA 

LOb 

SB5 9 <QUITB5 



0u2289 

0044 

6380 




JMP 

*$B3 



0U2290 





* 





0OZe9 i 

0043 

0000 



QUITB5 

RESV 

SAF 9 0 



' 0U2292 





* 





0u2293 





* 





002294 





********************************************************************** 


002293 





* SETUP "Sb" 

/ "IS" DATA 



002^90 





* TAG 

LAbLE 

IN R4 



002297 





* DCNT CARE 

DATA INTO R6? ACTUAL 

INTO R7 


002498 





* 





002299 





* LNJ 

SB5 9<SBIS 



002300 





* DC 

X • hh • 

OGNT CARE MASK 



OOZbOl 





* 





00Z30e 





* 





002303 

0046 

t875 



SblS 

LOR 

SR69+SB5 

GET DONT CARE MASK 


002304 

004 7 

4046 




SOR 

SR4 9 8 

SHIFT TAG LABLE 


002303 

004 b 

C570 

000 F 



AND 

SR4,=X*F* 

SAVE TAG NUMBtR 


OOeiUo 

004A 

CF 00 

0 F E 9 



STR 

SR4 9 <TEMPC 



00230/ 

004L 

C060 

0 F E 7 



LOh 

SR4,<TEMPA 

shift return oata 


00230b 

OOnt 

CF 00 

0FE7 



STR 

SR4,<T EMPA 

PUT IT BACK 


UU2309 

0036 

L500 

0FE7 



AimO 

SR6 9 <TEMPA 

SB OATA 


002310 

0032 

F 800 

OF E7 



LOR 

SR7,< T EMPA 

IS OATA 


002311 

0034 

8900 

0FC5 



LbT 

<IPFL 9 =X•2 * 

SET PRINT FLAu 



0036 

0002 








00231c 

003 / 

8363 




JMP 

SB5 

RETURN 


002313 





* 





002314 





* 





002313 





********************************************************************** 


0U2 3 11> 





* get 

CYLINDER ADoRESS 


. •- 

00231/ 





* 




ff,- 

00231b 





* 





002319 

003b 

OF 60 

0070 


GLTCY 

STb 

SB5 9 <GTCYB5 


\..,y 

00232U 






CALL 

ZV$T•ZVSQC 9 MSCYNO 

ASK FUR CYL 



003 A 

FbCO 

0003 








003C 

0360 

0000 

X 







0031 

0F80 









003 T 

102 F 








002321 





SC 

CALL 

ZVS1D9CYAD 

INPUT CYL 



0060 

FBCO 

0003 








0062 

0380 

0000 

X 







0064 

OF 60 









00b 3 

OF AO 








00232c 

Oubb 

9800 

OF AO 



LOR 

SRI9<CYAD 



002323 

0066 

1800 


I 


BLZ 

SRI 9 >^ SA 

CYL IS NEG 


002329 

00o9 

9970 

0336 



CMR 

SRI 9 = 822 

HI CYL 


002323 

006b 

0370 


l 


bG 

> + $ A 

>822 


00232o 

006C 

9970 

0 19 A 



CMR 

SRI 9=410 

GOOD FOR ANY oEV 


00232/ 

006L 

0360 


i 


bLE 

> + $b 



00232b 

0 O' 6 F 

6260 

UFC4 



Lb 

<I DEN 9 = Z * 8000• 

822 CYLS ? 



00 7 1 

6000 








002329 

0072 

0 57C 


1 


BdT 

> + $u 

YES 


002330 





SA 

CALL 

zvs r •zvsoc 9 HS 6 LNK 

ILLEGAL CYL 



0073 

FbCO 

U003 








007 5 

0380 

'0000' 

X 







007 l 

OF 60 









0 0 7 6 

1042 








002331 

007 9 

0 F E 7 




b 

> ~$c 

RETRY 


002 3 3 4 

0 07 A 

OCBO 

007 0 


Sb 

LOB 

SB5 9 <GTCYB5 



002333 

00 7 C 

6365 




JMP 

SB5 



002339 





* 





002339 

007 o 

0000 



GTCYB5 

RESV 

SAF 9 O 

* 


002 3 3o 





* 





00233/ 





* 





00233b 





********************************************************************** 


00c339 





* GET 

TRACK 

AUDREYS 



00234U 





* 





00c34 i 





* 





00234c 

00 7 L 

OF 6 0 

00A3 


gettk 

STb 

SB5 9<GTTKB5 



002343 






CALL 

ZVS T•ZVSUC 9 MST KNO 

ASK FOR TRK 



OObO 

FBCO 

0003 








U0b2 

0360 

0000 

X 







0064 

OF 80 









0063 

1144 








002344 





sc 

CALL 

ZVS109TRKAD 

INPUT TRK 



00b6 

FbCO 

0003 








0066 

0380 

0000 

X 







OObA 

OF 80 









006b 

OFFO 








002343 

006C 

9800 

OFFO 



LOR 

$R1,<TRKAD 



002346 

006L 

1600 


1 


bLZ 

SRI9>+SA 

TRK IS NEG 


0 U 2 3 4 7 

OObF 

9970 

0012 



CmR 

SRI 9 = 18 

HI TRK 


00234b 

0091 

0370 


) 


eg 

> + Sa 

>18 


002349 

0092 

9970 

U004 



CHR 

SRI 9=4 

GOOO FOR ANY oEV 

fl J 

002330 

0094 

0380 


■[ 


BLE 

> + So 



002331 

0093 

8280 

OF C4 



Lb 

< I OC.N 9 =Z * 4000 • 

19 TRkS ? 



009/ 

4000 
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TITLE SmDS 2,»REV C«, STORAGE MODULE TDD, FEb lb* 1978 


002354 

002353 


002354 

002355 

002356 

002357 

002358 

002359 

00236U 

002361 

002362 

002363 

002364 


0098 057C 


0099 
0D9b 
0090 
0091 
009F 
OOAO 
00A2 

OOA3 


FBCO 0003 
0380 0000 
0F6U 
1042 
0 F E 7 

0C80 0DA3 
8385 

0000 


00237© 

002379 

0G238U 

002381 

002384 

002383 

002384 


0024i4 
002*+ 1 5 
0024lo 
00241 1 


002431 

002432 

002433 

002434 

002433 

002436 
004437 
0o24 3© 


0 tO i 
0t03 
OtU*+ 
Ot06 


6F00 0FD5 
FFFF 

9b80 0100 
9P80 1222 


YES 

ILLEGAL TRK 


RETRY 


bbT 

SA CALL ZV$T.ZV$QC,MSbLNK 


b >-SC 

SB LOb SB5 *<GTTKB5 

JMP $B5 

* 

GTTKB5 KtSV SAF,0 
* 

* 

*************************** ******************************************* 

* GET SECTOR ADDRESS 


0O2363 

0UA4 

DF80 

0DC2 


GET SC 

Sib 

SB5,<GT SCB5 


002366 

0DA6 

FbCO 

0003 



CALL 

ZVST.ZVSQCtMSSCNO 

ASK FOR SECT 


ODA© 

D380 

0000 

X 






ODAA 

OF 80 








ODAb 

1123 







002367 

ODAC 

FBCO 

0003 


SC 

CALL 

ZVSID,SECAD 

INPUT SECT 


ODAt 

0380 

0000 

X 






ODbO 

0F80 








ODbl 

0FD2 







00 2 3 6© 

0Db2 

9800 

OF D2 



LDR 

SRI»<SECAD 


004369 

0Db4 

1800 


1 


bLZ 

SR 1, > + $A 

SEC IS NEG 

0U237O 

0Dd5 

9970 

003F 



CMR 

SR i , = 63 

HI SECT 

002371 

ODb/ 

0380 


T 


bLt 

> + $D 

002374 

ODbd 

FbCO 

0003 


SA 

CALL 

ZV$T.ZV$UC,MSBLNK 

ILLEGAL SECT 


ODBA 

0380 

0000 

X 






ODBC 

0 F 80 








ODbu 

1042 







00237b 

ODBC 

OF El 




b 

>-$C 

RETRY 

00237a 

OOBF 

DC60 

0DC2 


SB 

LDb 

SB5,<GTSCB5 


0023 f 5 
002376 

ODC1 

8385 



* 

JMP 

$B5 


002 3 7 7 

0DC2 

0000 



GTSCB5 

RESV 

SAF ,0 



*************************** it******************************************* 

* SEEK CYLINDER AuDRESS 


LNJ Sb5,<5KCY 


002385 





* FLAG 

= •0008 * SLOW SEEK 

002386 





* 



002 38 Y 





* 



002388 

GUC3 

8900 

oFC2 


SKCYS 

LdT 

<FLaG, = X f 8 * 


0DC5 

000b 






002389 

ODCb 

C87 5 



SKCYF 

LDR 

SR4 * + SB5 

002390 

ODC 7 

D F 6 0 

0DF4 



STB 

SB5*<SKCYB5 

004391 

0DC9 

b800 

OF AC 



LDR 

SR3,<BITE 

002394 

OUCb 

CF 30 

0Fd9 



SIR 

SRA ,<DXFN»SR3 

002393 

GDCu 

U380 

OF 18 



LNJ 

SB5,<SUCA 

002394 

OUCF 

8 180 

0FE7 


SA 

luLD 

<TEMPA,<I0WRI1 »<D' 


0UU1 

0000 

11F 7 






0DO3 

0000 

OFAF 





002393 

0DU3 

0 7F A 




blUF 

>-SA 

002396 

GUOo 

8280 

0FC2 



Lb 

<FLAG, = X•8 * 


0DD6 

0008 






002397 

0Du9 

0500 


1 


BbT 

> + $C 

00239© 

ODDA 

C870 

0100 



LDR 

SRA,=Z * 0100• 

002399 

ODDC 

8054 



Sb 

10 

=$R4,<0TTASK 


ODDD 

0000 

11FD 





002400 

ODDF 

07 F U 




biOF 

>-$b 

002401 

CDEO 

OF 80 


T 


b 

> + $u 

00240^ 

Out! 

CAbO 

ODED 


SC 

Skm 

SR4,<5KCYB,=X»FF« 


0DE3 

OOFF 






002403 

0UE4 

404b 




SUR 

SR4,b 

00240a 

ODE 3 

CAbO 

oDEa 



SRM 

SR4,<SKCYA,=X»FF* 


0 D E 7 

OOFF 






002403 

ODE 6 

D380 

OC52 



LNJ 

SB5,<T AGO 

004406 

ODEA 

D400 



SKCYA 

DC 

L •D400• 

004407 

ODEd 

U380 

0C52 



LNJ 

SB5,<TAGO 

00240© 

OULU 

UbOO 



SKCYB 

DC 

Z»DbOO» 

U02409 

UDEL 

8800“ 

0 F C 2 



LBF 

<FLmG,=X»8 * 


OUF 0 

0008 






002410 

OUF 1 

UC80 

0DF4 


SO 

Lob 

SB5,<SKCYB5 

0024 11 

OUF 3 

8385 




JMP 

SB5 

002414 





* 



002413 

OUF 4 

0000 



SKCYB5 

RESv 

SAF , 0 


set slow flag 

GET CYLINDER oATA 

SAVE RTN ADDRtSS 

GET DEVICE NUMBER 

STORE CYL ADDRESS 

LOAD CONFIGURATION WORDS 

SET OUTPUT 


CHECK FOR SLOw 


002 416 
002419 
002440 
002421 




* 

* SR3=CoRREnT 

* 

* 

DEVICE 

004424 

OOF 3 

DFbO 

OE00 

CDCH STB 

SB5,<CDCHB5 
SR4 * <DRIVEO 

004423 

OuF f 

C830 

0Fb5 

LDR 

002424 

UDF9 

CF 40 

oibA 

STR 

SR4,DRIVE 

002423 

ODF b 

D380 

0 F 6 F 

LNJ 

Sb5,<SET CHN 

002426 

GDFU 

DC80 

OEOO 

LOB 

SB5,<CDCHB5 

00242 7 
002428 

OOFF 

8383 


JMP 

* 

SB5 

002429 

0O243O 

Otoo 

0000 


CDCHB5 ReSV 

* 

SAF , 0 


LOAD SEEK CUMAND 
SEEK 


STORE LQ CYL ADDR 

GET HI ADDR 
STORE HI CYL 


HI CYL ADDR 

LO CYL ADDR 
RESET SLOW FLaG 


* 

* 

************************************************************************* 

SETUP CURRENT DEVICE CHANNELS 


STORE RETURN 

CURRENT DRIVE ADDRfSS 
SET CHAN ADDR FOR CURRENT DRIVE 

RETURN 

RETURN ADDRESb 

************************************************ ft*****#********##**##**#**#*##* 

* NON-EX I STANT RESOURCE, TRAP 15 HANDLER 
TH15 SAVE <SAvE-l,=-l 


SAVE ALL REGS 


OEOa FbCO 0003 


LAd S61,<START 

STB SB 1,<T SA1P 

CALL ZV$T.ZVSTC,hS*»RT 


SAVE IN CURRENT TSap 
MISSING RESOURCE TRAP 
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002439 
0U244U 
0U2441 
OU <£44 * 


OEOa 

OhGC 

OEOG 

OEOt 


D360 0000 
OF BO 
lObF 
0003 


002459 

002460 

002461 

002462 

002463 

002464 

00c463 

00246b 

002467 

002466 

002469 

002470 

002471 

00247c 

002473 

002474 

002473 

002476 

002477 

002476 

002479 

002480 

002481 

00248c 

002483 

002484 

002485 

002486 

002487 

002486 


0 E2o 
0E2 7 
0E26 
0E2A 
Ot2C 

0E2U 
0L2E 
Oh 30 


0h32 

0634 

0L36 


6754 

0004 

9900 0000 
0200 0t28 
1CFF 

2CEC 

2780 0E2E 
4780 0E2D 


C800 0637 
1780 062D 
6385 


0637 0000 


06 36 
0639 
063A 
063C 


9675 

8251 

C800 0637 
OF80 062D 


kTT RETURN FROM TkAP 

************************************************************************ 

* HANDLE RTC HUPT AND CALIBRATE CLOCK (AT LEVEL 3) 

* 


002443 

OEOF 

0005 


RTCFC 

RTCF 


STOP THE CLOCK 

002444 

0610 

CF 56 



STR 

$R4,r$R6 

STORE MAJOR TIME Loops 

0u244 5 

UEli 

AF3 7 



STR 

$R2*=SR7 

STORE MINOR TIME Loops 

002^46 

GE1 4 

6D00 

OFEE 


SDI 

<tmlpa 

STORE LOOPS 

00244 7 

OE14 

7GD0 



DOR 

SR7 * 16 


002446 

OE13 

F370 

03E6 


DIV 

SR7 * 51000 


002449 

OE 1 7 

E37u 

01F4 


DIV 

SR6*^S00 

TEST FOR ROUNbING 

0U2450 

OE 1 9 

6A60 


T 

bLEZ 

$R6*>*SA 


002451 

OE 1A 

8 AD 7 



INC 

= $R 7 

ROUND 

00245c 

GElb 

8257 


SA 

NEG 

= $R7 


002453 

0E1C 

F FOG 

0E37 


STR 

SR7,<SYNCHC 

TIME FUR 1 MIuLISECOND 

002454 

OE 16 

9b80 

0177 


LAb 

SB 1 * <RESUME 


002455 

0E20 

9F60 

12 1A 


STb 

$61,<SA15P 

PREPARE FOR SUSPEND 

002456 

062 4 

6E70 

800F 


LEV 

= Z * 6000 *+ 15 

SUSPEND TO LEVEL 15 

002457 

UE24 

0000 



HIT 


DIDN'T SET UP FOR SFCOND INTERRUPT 

U02456 

0E2 5 

OFF F 



b 

>$-l 



************************************************************************ 

* CALIBRATE THE CPU FOR ONE SECOND 

* 

SYNCH CL = $R4 LOOPS FOR 1 StC 

KTCN START THE CLOCK 

SYNCHA CNR $R1*<ZHRTCC SYNCHRONIZE ThE CLOCK TICKS 

bL <SYnCHA WAIT FOR FIRS I TICK 

LDV sRl,s-l IN CASE RTC DOESN'T RuPT 


$R2*=-20 
$R2 *<S 
$R4*<SYNCHd 


-20 

LONG NOP 

COUNT LOOPS/SlC (/MS) 


SYNCHB LUV 
-blNC 
blNC 

* 

* if doing initial calibration, should rupt out of loop timec. 

* 

LDR SR4 *<SYNCHC NMBR OF LOOPS/MS 

blNC SRI* <SYNCHB NMBR OF MSECS 

JmP $B5 RETURN 

* 

SYNCHC RESV 1*0 NEG NMBR TO Rt-INIj FOR X MSEC 

************************************************************************ 

* TIMEOUT FOR N MILLISECONDS 

* 

TIME LDR $Rl* + SB3 GET NMBR OF MaECS 

NEG =$R1 

LDR SR4,<5YNCHC SET UP FOR FIRST MSFC 

B <SYnCHB timeout 

***************************^********************************************* 
* RTC INTERUPT ROUTINE 


002489 





* 


002490 

0E3E 

8900 

OF C2 


T10MS LbT 

<FLAG*=X»4» 


0640 

0004 





002491 

0641 

C875 



T1SEC LDR 

$R4,+$B5 

002492 

0642 

DFtiO 

0E6C 


STb 

$B5 , <T IMQT5 
$R5,<RTCHZ 

002493 

0E44 

D800 

OF D1 


LDR 

002494 

0646 

5F02 



MEV 

$R5*=2 

002495 

0E4 7 

CB55 



MUL 

$R4,=$R5 

0G2<+96 

0646 

8280 

0FC2 


Lb 

<FLAG,=X'4* 


064A 

0004 





002497 

064b 

0580 


T 

bBF 

> ♦ $ A 

002496 

064C 

C370 

0064 


DIV 

$R4 * s100 

002499 

0E4E 

8800 

0FC2 


LbF 

<FLaG,5X»4» 


0650 

0004 





002300 

0651 

CFOO 

UOOO 

A 

SA STR 

$R4* <ZHRTCI 

002301 

OE53 

CF 00 

0000 

A 

STR 

$R4 «<ZHR T CC 

002502 

0655 

9B80 

0E62 


LAb 

SBl* <11MLV5 

002503 

065 7 

9F80 

120E 


STB 

$B1 ,<SA5P 

002504 

0659 

9B80 

120b 


LAb 

SB 1,<SA5DV 

002505 

Cl5u 

9F80 

0005 

A 

STB 

$Bi,<ZHiSAZ+5*$AF 

002306 

0E5D 

2C05 



LDV 

$R2,*5 

GU2507 

0E5 E 

AF 00 

0000 

A 

STR 

$R2,<ZHRTCL 

002506 

0E60 

0004 



RTCN 


002509 

OEbi 

8385 



JMP 

$65 

002510 





* 


002311 





* INTERUPT, 

IF IT OCCURS* BRINGS 

0025 I 4 





* 

002513 

066 4 

t>005 



TIMEV5 RTCF 


002514 

0E63 

DC 80 

066C 


LDb 

$B5 *<TI MOTS 

002515 

UE63 

C875 



LDR 

$R4 * + $61> 

002516 

0666 

DF 80 

12 1A 


STb 

$B5 *<SA15P 

GO25 17 

OE 60 

8E70 

800F 


LEV 

=Z'8000**15 

002516 

0L6A 

0000 



HLT 


002519 

0E6b 

OFFF 



b 

>$-i 

0O252O 





* 


002521 

0E6C 

0000 



TIM0T5 RESV 

$AF *0 


10 MILLISEC Flag ♦ OR 

1 SEC ENTRY 

GET CLOCK FREw. 
CONVERT TO TICKS 
TOTAL TICKS 

10 millisecs ? 

NO- ITS 1 SECOND 
CONVERT TO MS 
FOR NEXT TIME 

INITIAL VALUE 
CURRENT VALUE 
GO HERE AFTER TIMEOUT 


SET RUPT TO LvL 5 
TURN CLOCK ON 
RETURN TO PRGlESS 


TURN OFF CLOCr 

BUMP RETURN AuDRESs 
PREPARE FOR SUSPEND 
SUSPEND TO LVl 15 


8 # 3MS 


002522 

002523 

002524 

002525 

002526 

002527 

002528 

002529 

G0253U 

002531 


* 

* 

********************************************************************** 

* TIMER LOOP INTEkUPTED BY DEVICE EVENT 

* LOOPS ARE TGTALlD AND STORED IN $R6 AND $R7 

* ENTRY DECLARED WITH LV10SU ROUTINE , 

* LV10TM ENTRY ACCUMULATES MULTI EVENTS TEMPB/TcMPC 

* LViOTl ENTRY RETURNS SINGLE EVENT TIME LOOP In *R5 


002534 

0E6D 

DFfaO 

0E7F 

TIMER 

STB 

$B5,<TIMB5 


002533 

GE6F 

6 755 



CL 

= $R5 


002334 

OE 70 

4CEC 


SA 

LDV 

SR4,=-20 

SET MINOR LOOP COUNT 

002333 

OE 71 

4780 

0E71 


blNC 

$R4 * <$ 

LOOP 20 TIMES 

002536 

0E7 3 

5780 

0E70 


BlNC 

SR5 *<-SA 

INCR MAJOR LOOP 

002537 

0E75 

8900 

0FC2 


LOT 

<FLAG* = X•10 * 

TIMER OVERFLOW 


0 E 7 7 

0010 






00233d 

0678 

D870 

7FFF 


LDR 

• SR3 * = Z * 7FFF * 

FORCE MAX TIMt 

002539 

0E7A 

6040 

0379 

SB 

Iu 

STOPIO*<OTCONT 

FORCE IRUPT 


0E7C 

0000 

llFb 





002340 

0E7E 

07FC 



BIOF 

>-Sb 


002541 




* 




00254c 

0E7F 

0000 


TIMB5 

RESV 

SAF *0 


002343 




* 





if'” 


V v .. -j>-' 
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002544 





* DEVICE RUPT 

TAKtS US HERE 


002545 





* 




002546 

OLbU 

8C80 

0F68 


LV10TM 

LOI 

<TEmPB 

GET TOTAL LOOPS 

g > 002547 

0t82 

F A5 5 



LVT0T1 

ADD 

SR7,=SR5 

UP DATt TOTALS 

■ 002546 

Otb3 

8606 




CAO 

= SRo 

ADD CARRY IF mNY 

% ,:■■■ 002549 

0684 

0680 


1 


bCF 

> + SA 

MORE CARRY ? 

OO^bbO 

0665 

OOOU 




HLT 


TOTALS OVERFLuW-CANT GET HERE! 

Uu2b51 

0686 

8000 

OF68 


SA 

SOI 

< TEmPB 

STORE RESULT 

002 55*: 

0686 

0C80 

0 67 F 



LOb 

SB5 »<TiMbb 

GET RETURN 

Ou2 553 

o66A 

0F7F 




NOP 

>$-i 

XXXXXX 

002bb<+ 

0L8d 

OF 80 

1 2 1A 



STb 

$Bb,<SAlbP 

SET UP LEV 15 RETURN 

0 0 2 b b b 

OtbO 

8670 

8 OOF 



LtV 

= Z * 8000 *♦ 1 b 

LEV 15 TO PROCESS 

002 b b b 

0 L8 h 

0000 




HlT 



002557 

002558 

0190 

OF F F 



* 

b 

>S-1 


0U2bbb 





* 




002 b60 





********************************************************************t*** 

002 b6i 





* SET 

UP FOR 

LEV 10 RUPT 


0U2 56l 





* LNj $>b5 »<LV 1 OsU 


002563 





* DC 

<PROClSS 


0U2 564 





* 




002 b6b 





* 




0u2b66 

0L91 

9CF b 



LV10SU 

Lbb 

SBl*+SB5 

GET LV 10 PROCESS 

002 b67 

0L92 

9 F 80 

1214 



STb 

$B1*<SA10P 

PUT IN SAVE AREA 

002b6b 

0694 

ttCbi 




STS 

= $R 1 

GET S REG 

002569 

Otbb 

9 b 70 

03C0 



AND 

$R1,=Z*03C0* 


002b 70 

0 69 7 

9470 

OOOA 



OK 

SR 1 * = 10 

SET TO LEV 10 

002 b 7 i 

0699 

dOb 1 



SA 

10 

= $R 1*<OTRUPT 

ALLOW DEV RUPT 


0 69 A 

0000 

11FC 





002b7*: 

069C 

0 7 F 0 




blOF 

>“*$ A 


002b73 

002574 

0690 

838b 



* 

JMP 

SB5 


002b 7b 





* 




002 b7b 





************* ********************************************************** 

0 0 2 b 7 7 





* TIME 

Dtv I Ct 

EVENT AT LEVEL 

10 (MILL1 SECS) 

0 0 2 b 7 b 





* PREVIOUSLY 

LV10SU CALLED *ITH 

002b 7b 





* LV10TM OK 

LVlOfl PARAMETERS 

002b8u 





* sR5 

RE1 URNS 

TIME in ms 


002581 





* 06V1C6 RUPT 

INH ON EXIT 


002582 





* 6NTRV LNJ 

Sb5i<TIMDE 


Ou2 b 8 3 





* 

DC 

MSECS 


002584 





* 

OK RETURN 


0U2b8b 





* 

TIMEOUT KTN 


002b86 





* 




002b87 





* 




002bbb 

01: 9 L 

A 8 7 b 



TIMD6 

LOR 

SR2 t ■♦•$65 

GET MSEC PARAMETER 

002589 

QL9F 

OF 8 0 

OtbO 



STb 

SB5 * < TIMDE5 


002 b 90 

OLA 1 

8 7 b 6 




CL 

= SRo 


002591 

06A2 

8 7b 7 




CL 

zSRl 


002 b92 

06A3 

0380 

0660 



LNj 

SB5 »<TIMER 

START TIMING 

002 b93 

06 Ab 

C800 

0637 


11 MOLl 

LOR 

SR4,<SYNCHC 

RUPT RETURN 

00259* 

06A7 

82b4 




Nlu 

= $R4 

GET MSECS DIVIDER 

002 b9b 

06 Ad 

87bd 




CL 

= $R6 


002 b96 

06A9 

F8bb 




LOR 

Sft7,=$R5 


002 b9 7 

06 AA 

F 3b4 




DIV 

$R7,=SR4 

LONG divide 

# 002b98 

OtAb 

4041 




SUR 

$R4,1 


f 002 b99 

06 AC 

63 b4 




DIV 

SR6*=$R4 

TEST FOR ROUNulNG 

1 OO^bOo 

06A0 

6A80 


T 


bLEZ 

SR6*> + $A 


^ 002601 

06 At 

8A07 




INC 

= $R 7 

ROUND OFF 

002602 

OtAF 

FFbb 



SA 

STR 

SR7, = SR5 

$R5 HAS TIME IN MS 

002o03 

0 ttsu 

8 7b 1 



Sb 

CL 

= $Ri 

INH DEVICE RUHTS 

002604 

otbi 

80b 1 



SD 

iu 

= SR 1»<OTRUPT 



06b2 

0000 

UFC 






00260b 

06b4 

07F0 




BIUF 

>-$o 


002b0o 

OLbb 

0C80 

06BD 



LDB 

SB5,<TIMDE5 

GET RTN ADDRESS 

002607 

0607 

0 F 7 F 




NUP 

>$-i 

XXXXX 

00260b 

Otbb 

09b2 




CMR 

$R5,=$R2 

ACTUAL VS EXPlCTED MSFCS 

002 bOb 

Otbb 

0380 


T 


BLE 

> + $C 

OK 

0026lu 

OtbA 

OBCb 

0001 



LAb 

$B5 »SB5.sAF 

BUMP TIMEOUT KTN 

002611 

otbc 

838b 



SC 

JMP 

Sb5 


0026 1 2 





* 




002613 

OtbO 

0000 



7I MOL5 

RESV 

SAF *0 


002o 14 





* 




002 6 1 b 





* 




002616 





*********************************************************************** 

0U21> 1 7 





* COMPUTE AVl 

•TIME FOR TOTAL 

IN $R6 AND $K7 

00261b 





* AVt 

TIME IN 

$R6 (MILLI SECS) 


00261b 





* 




002620 

Otbt 

C800 

OF CF 


T HAVE 

LDR 

SR4 i <LPCUR 

GET NEG CURRENT COUNT 

00262 1 

OLCO 

8A04 




INC 

= $R4 

GET LAST LOOP 

002622 

0EC1 

C200 

OF Ct 



SUB 

SR4i<LPCNT 

SR4 HAS CURR LOOP CNT 

002623 

06C3 

8C80 

OF 6 8 



Lb I 

< TEMPB 

GET TOTAL LOOP COUNT 

002624 

OtCb 

F 3b4 




DIV 

$R7,=$R4 

GET AVE LOOPS 

00262b 

0 6Cb 

4041 




SOR 

SR4 * 1 

DIVIDE BY 2 

002626 

Otc 7 

63b4 




DIV 

$R6 9 = SR4 

TEST REMAINDEk 

002627 

OLCti 

6 A80 


T 


bLEZ 

$R6*>+SA 

DONT ROUND 

00262b 

OtCb 

8A07 




Inc 

= $R7 

ROUND OFF FRAlTION 

002629 

06CA 

F Fb6 



SA 

STR 

SR7,=SR6 

SET UP FOR NXT DIVIDE 

002630 

06 Cd 

C800 

0637 



LDR 

SR4,<SYNCHC 

GET MS TIME CuNSTAnt 

002631 

06Cl> 

82 b4 




NLG 

= $R4 

002632 

Ot Ct 

63b4 




DIV 

SR6»=$R4 


002633 

06CF 

tFOu 

0FA7 



STR 

SR6* < AVETM 


0 0 2 6 3 4 
00263b 

0601 

838b 



* 

JMP 

SB5 


002636 





* 




002637 





************************************************************************ 

00263b 





* TYPE 

OUT ASCII CONTENTS OF 

R1 

002639 





* 



002640 

0602 

OF 80 

0661 


VDTR 

STb 

Sb5* <VDTRB5 


002641 

0604 

9F00 

06DF 



STR 

$R1*<VDTRA 


002642 

0606 

FBCO 

0003 



CALL 

ZV$T•VDTRA 



OtOb 

0380 

0000 

X 






0 60A 

0F80 








060b 

060F 







002643 

060C 

DC80 

0661 



LDB 

SB5 »<VDTRB5 


002644 
, 00264b 

0606 

838b 



* 

JMP 

$B5 

RETURN 

■ 002646 

0606 

0000 



VDTRA 

RESV 

1*0 


% j 002647 

0660 

2424 




DC 



00264b 

0661 

0000 



V0TRB5 

RESV 

SAF * 0 


002649 





*********************************************************************** 

0026b0 





* CONVERT SAF 

OR LAF ADDRESS 

TO ASCII 
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002651 




* HEX 

ADDRESS 

IN SB7 


002652 




* ASCII KESULl 

' IN LNGAD 


002653 




* 




002654 




* 




002655 

OEE^ 

4C01 


ENgASC 

LDV 

$R4<=$AF 

SET UP FOR EXIT 

002656 

0EE3 

6254 



NEG 

= $R4 


002657 

0EE4 

FFtiO 

OF E7 


STB 

$B7,<TEMPA 

STORE ADDR WORD/S 

002656 

0EL6 

AB80 

0FE7 


LAB 

$B2<<TEMPA 


002659 

0EE6 

bB80 

OFCA 


LAB 

$63<<LNGAD 


00266O 

OEEA 

6751 



CL 

= $Ri 

WORD COUNTER 

002661 

OEEd 

8752 



CL 

s$R2 

CHAR COUNTER 

002662 

OEtC 

F85E 


$ A 

LDR 

$R7,$62.+$Ri 

GET ADDR WORD 

002663 

OEED 

3CFC 



LDV 

$R3,=-4 

BYTE COUNTER 

002664 

OEEE 

8756 


SB 

CL 

= $Ro 

WORK AREA 

002665 

OEEF 

7084 



DOL 

$R7 1 4 

STORE CHAR IN $R6 

002666 

OEFO 

6D09 



CMV 

$R6,=9 

ALPHA OR NUMBER 

002667 

OEFi 

0380 


T 

BLE 

> + $C 

NUMBER 

00266c 

OtF 2 

6E07 



ADV 

$R6 ♦ = 7 

ALPHA CONVERT 

002669 

OtF 3 

6E30 


SC 

ADV 

SR6 * =X•30• 

ASCII CONVERT 

0 0 2 6 7 U 

0 E F 4 

E7EF 



STH 

SR6 * SB3•+SR2 

STORE ASCII 

002671 

OEF 5 

37F9 



bINC 

SR3 < >-$B 

GET NEXT CHAR 

002672 

OEF 6 

47P6 



B1NC 

SRA < >-$A 

GET NEXT WORD 

002673 

OEF 7 

8385 



JMP 

SB5 



002692 

002693 

002694 

002696 


002674 
002676 
0026 7 6 
0 0 2 o 7 7 
002676 
002679 


002709 

002710 

002 m 

002 712 
002 713 
002/14 
002716 
.002716 
002717 
002716 
002719 
002 720 
002721 
00272* 
002723 
002724 
0U2726 
002726 
002 727 
002726 
002 729 
002 730 
00*731 
002 73* 
002733 
002734 
002 736 
Ou* 7 36 
002 73 7 
00*736 
002739 


*********** 

* 10 STALL 

* 


********************* 
RuOT INt 


*************************************** 


OO 208 U 

0EF6 

DF 80 

OFOC 

STALL 

STB 

$B5 * <STALB5 

002681 

OEF A 

8755 



CL 

= $R5 

00268^ 

clPb 

6000 

uFE5 

$A 

1U 

<STAT1 * <INSTW1 


OEFD 

0000 

1204 




002683 

OtF F 

0700 

OF Ob 


BIOT 

<STaLLB 

002684 

0F01 

5 7F A 



BINC 

$R5 < >-$A 

002685 

OF 02 

6000 

11F4 

SB 

lu 

<STUPIO<<OTCONT 


OF 04 

0000 

11 Fb 




002686 

OF 06 

07 FC 



BIOF 

>-Sb 

002687 

UFO 7 

DC60 

OFOC 


LDB 

SB5,<STALB5 

002686 

0F09 

DBC5 

0001 


LAB 

SB5,SB5.SAF 

002689 

OFUd 

8385 


stallb 

JMP 

SB5 

002690 




* 



002691 

OFOC 

0000 


STALB5 

RESV 

$AF<0 


CLEAR COUNTER 


EXIT 

WAIT HERE FOR BIOT 
ABORT 


BUMP FOR ERROk RETURN 


************************************************************************* 

* get two status WORDS 


002696 

OFOu 

8000 

0FE6 

INSTAT 

Iu 

<STAT2<<INSTW2 

GET STATUS 

WOkD 

2 


OF OF 

0000 

1205 



> INSTAT 




002697 

OF 11 

07 FC 



BIOF 




002696 

OF 12 

6000 

OF E5 

I ST AT 1 

10 

<STATI<<INSTW1 

GET STATUS 

WORD 

1 


OF 14 

0000 

1204 







002699 

OF 16 

07FC 



BIOF 

>I STATI 




002700 

0 F 17 

8385 



JMP 

SB5 

RETURN 



002701 




**************************************************** 

002702 




* SET 

UP CONFIGURATION WORDS 




002703 




* 






002 704 

OF id 

8030 

0FB9 

SUCA 

lu 

<DXFN•$R3 <<OTCONF 

SET UP CW1 




OF 1A 

0000 

11F9 







002 705 

0F1L 

07FC 



BIOF 

>SUCA 




002706 

OF ID 

8030 

UFBD 

SUCB 

lu 

<DXKN.$R3<<0TC0N2 

SET UP CW2 




OF 1F 

0000 

UFA 







002 707 

OF 2 1 

07 F C 



BIOF 

>SULb 




002706 

0F2^ 

6385 



JMP 

SB5 

RETURN 




*********************************************************************** 

* FILL BUFFER WITH WORD STRING 

* 

* LNJ SB5 <<FLBF 

* DC <SENDlK SENDER ADDRESS 

* DC DD SENDER WORD LENGTH 

* DC RECEIVER RECEIVER ADDRESS 

* DC DD RECEIVER WORD LENGTH 


SB2<+ SB5 
Sk4,+Sb5 
SB3,+$65 
$R5 1 + $65 
= $R4 

$R4*=$R7 

= $R6 
= $Ri 
= $R2 

$R6 * $B2• + $R 1 
$R6<$B3.+$R2 
$R4o + $B 
= $Rl 

$R7<=$R4 
$R5 < >-$A 
$B5 


********************************* 
* PRINT "IS” AND "SHOULD-BE" DATA 


ADDR OF SENDER 
LENGTH OF SENuER 
ADDR OF REC 
LN6TH OF REC 
SENDER COUNTER 
SAVE 1NIT COUnT 
REC COUNTER 
INITIALIZE INuEX RFGS 

GET SENDER DATA 
STORE IN RECEIVER 
MORE TO SEND ? 

RESET SENDER iNDEX 
INIT SENDER CuUNT 
RECEIVER FlLLtD ? 


*************************************** 


UU2 74U 

0 F 3 3 

DF 6 0 

0F6E 


P1 SBC STB 

002741 

OF 36 

6D00 

UFE7 


SD1 

002742 

OF 3 7 

FbCO 

0003 


CALL 


OF 39 

D360 

0000 

X 



OF 3d 

OF 80 





OF 3C 

11D6 




002/43 

0F3D 

FBCO 

0003 


CALL 


OF 3F 

D380 

0000 

X 



0F41 

OF 80 





OF 42 

0FE9 





OF 43 

0FF2 




002 744 

OF 44 

9800 

0FF4 


LDR 

002 745 

0 F 4 6 

D360 

ULD2 


LimJ 

002746 

OF 46 

FbCO 

0003 


CALL 


OF 4A 

D360 

0000 

X 



$B5 * <PISBB5 
<TEMPA 
ZVST<MSTAG 


PRINT "TAG” 


CALL ZV$iiZ<TEMPC<VRBl CONVERT TAG DATA To ASCII 


$Rl<<VRBL+2 
SB5<<VDTP< 
ZV$T<MSIS 


PRINT HEX TAG 
PRINT "IS" 
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0F4C 

OF 80 







0 F4D 

1198 






002 74 7 





CALL 

ZV$liZ*TEMPB»Vft6L 

CONVERT "IS" uATA ASCII 

£*' ' 

0F4L 

F BOO 

0003 





■ 

OF 30 

0380 

0000 

X 




m 

0F52 

OF 80 







0 f- 5 3 

OF Eb 







0 F 54 

OF F 2 






0 0 2 7 4 o 

0 F 5 5 

9800 

UFF4 


LDR 

$R1*<VRBL*2 


OUe 749 

OF 57 

D380 

UED2 


LMJ 

SB5,<VDTR 

PRINT HEX "IS" DATA 

002750 





CALL 

ZVS>)«MSSB 

PRINT "SB" 


OF 59 

F BOO 

0003 






0F5b 

0380 

0000 

X 





OF 50 

0F80 







OF 5L 

UOA 






002751 





CALL 

ZVShZ* TEMPA *VRBL 

CONVERT SB DAI A TO ASCII 


OF 5F 

FBCO 

0003 






OF 6 1 

0380 

0000 

X 





OF 63 

OF 80 







OF 64 

0FE7 







OF 63 

OFF 2 






002 7be 

OF 6o 

9800 

OF F4 


LPR 

SR 1»<VRBL + 2 


002753 

OF 6b 

0380 

0ED2 


LNJ 

SB5 *<VDTR 

PRINT HEX "SB" DATA 

002754 





* 



002/53 

0F6A 

0F02 



flop 

>$♦2 


0U275o 

0 F 6b 

0080 

0F6E 


SA LDb 

$B5i<PISbB5 


002757 

OF 60 

8383 



JMP 

SB5 

RETURN 

OU275b 





* 



0 0 e 7 3 9 

0F6L 

0000 



PISBB5 RlSv 

SAF »0 


002 760 





***************** *********** **** ** ************** **** * ******** ******** #** 

002 761 





* SET ALL CHANNEL CONSTANTS TO CURRENT DR IVE ADDRESS < PORT NUMBER) 

002764 





* 



002763 

0 F 6 F 

9B80 

UF6 


SETCHN LAB 

SB 1 1 <I OREAD 

START OF CHAN ADPRFSSFS 

002 764 

OF 7 1 

ABbO 

120A 


LAb 

SB2,<CHANZ 

END OF CHAN AuDRESsFS 

002763 

OF 73 

9800 

0FB4 


LOR 

SR 1 1 <DR1V E 

DRIVE ADDRESS 

002 766 

OF 75 

9AF 1 



SETCHA SRM 

SRl9*SBlt=Z*0i80» 

ADD DRIVE ADDRESS TO CHANNEL 


OF 7o 

0180 






002767 

OF 7 7 

9D02 



CMb 

SBl*=SB2 


002 76b 

0 F 7 6 

0200 

OF 75 


BL 

<SETCHA 

B IF TABLE NOT DONf YFT 

002 769 

0 F 7 A 

8385 



JMP 

SB5 

RETURN 

002770 





************************************************************************ 

Oo2771 





* DO A CAKRA1GE RtTURN/LINE FEED 


002 772 





* 



002 773 

OF 7d 

OF 8 0 

UF 86 


CRLF ST b 

SB5 * <CRLFB5 


002774 





CALL 

ZVST•ZV$TC»NULL 

(CRLF) 


OF 70 

FbCO 

0003 






0 F 7 F 

0380 

OUOO 

X 





0 F 6 1 

0F80 







OF 8 4 

OFOO 






002773 

OF b 3 

0080 

OF 8 6 


LDb 

SB5,<CRLFB5 


002 776 

OF 63 

8385 



JMP 

SB5 

RETURN 

002 777 





* 



002/76 

OF 86 

0000 



CRLFB5 RLSV 

SAF 9 O 


002 779 





************************************************************************ 

002 760 





* invokl THE 

PATCHING LIbRARY ROUTINE 

002761 





* 



I 0o2 76e 





PCH CALL 

ZVSPCh 

B <START RESTART 

1 

OF b 7 

FBFO 

0001 






OF 69 

0380 

0000 

X 




002 763 

OF 8 b 

OF 80 

0100 


B 

cSTART 


002 764 





************************************************************************ 

Oo2783 





* SET UP bUFFER FuR FORMAT WRITE 

OPERATION 

002/86 





* 



0u2787 

OF 60 

OFbO 

0 FA 6 


SUFB STB 

SB5,<SUFbB5 

STORE RETURN 

002 78b 

OF 6 F 

9080 

0 FC 6 


LDb 

SB! 9 <JJPT 

BUFFER ADDRESS 

Oo2789 

OF 91 

L830 

OF B9 


LDR 

SR6,<DXFN.$R3 

LOAD CW 1 

002 790 

OF 93 

F 8 30 

OFbO 


LDk 

SR7 9 <DXRN # $R3 

LOAD CW 2 

002 791 

OF 95 

F 37 0 

F F 00 


AND 

SR7 9 =Z•FFOO * 

SET SECTOR COUNT To ZFRO 

00279c 

OF 97 

9800 

UFD3 


LDk 

SR 1 9 <SECTRK 

SET SECTOR COUNT 

002793 

OF 99 

A85 1 



LDR 

SR2 9 = SR1 

SET UP RANGE 

002 794 

OF 9A 

8 A 02 



INC 

= $R2 

NUMBER OF ID'S 

002 79 3 

OF 9u 

2002 



SOL 

SR2 92 

4 BYTES PER Iu 

002796 

OF 90 

AFOO 

OF 17 


STR 

SR2,< T EMPA 

STORE RANGE 

002 79/ 

0 F 9 L 

tF7 1 



SUFBA STR 

SR6 9 ♦SB1 

SET UP ID'S 

002 79b 

0F9F 

F F 7 1 



STR 

SR7 9 ♦SB1 


002799 

OF AO 

8 A07 



INC 

= $R 7 

INCREMENT SECTOR NUMBFR 

002 o 0 o 

OF A1 

1700 

UF9E 


BDEC 

SRI9<SUFBA 

BRANCH IF NOT COMPLETE 

002 b 0 i 

0Fm3 

0080 

0 F A 6 


LDb 

Sb5 9 <5UFBB5 


002 b 0 e 

OF a5 

8365 



JMP 

SB5 

RETURN 

O02b03 





* 



0 0 2 b 0 4 

" 0FA6 

OOOO 



SUFBB5 RLSv ~ 

SAF 9 0 

RETURN ADDRESS 
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U02b0b 

00280b 

0U2o07 
OUZbOb 
0<J2b09 
002b10 
OOZb 11 


Ou2b45 
002846 
002o4 l 
002648 
002 84v 
OU2b50 
002851 
002654 
002653 
002854 
002855 
002656 
002657 
00265b 
Ou2b59 

00266U 

002661 

00266.4 

002663 

002664 

002665 

002666 


0FD5 
0FE5 
OF E6 
0 Ft 7 
0FE8 
0FE9 
OFtA 
OFEb 
OPEL 
OF EO 
OF tt 
OF EF 
OFFO 
OFF 1 
OF F 2 
OFF 5 
OFF 6 

OFFb 

OFFC 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

2424 

EB60 B6DB 16EB 
6 L>b6 Db 16 
FFFF 
0000 


0U2614 

OF A7 

0000 

AVETM 

RESV 

1,0 

002613 

0 F Ab 

0000 

ASCBF 

RESV 

3,0 

0026 1 H 

OF Ab 

2420 



DC 

•S* 

002615 

OFAC 

0000 

BITE 

RESV 

1,0 

0 U2 6 1 6 

OF Ao 

0000 

CYAD 

KtSV 

1*0 

002617 

OFAt 

0000 

CYADMX 

RESV 

1*0 

002616 

OF AF 

0001 

D-l 

DC 

1 

002619 

OFbO 

0000 

DtVlD 

RESV 

4*0 

0 U2 6 2 0 

0Fb4 

0000 

DR 

tVE 

RESV 

1*0 

002 o21 

OF b5 

0000 

DR 

VEO 

DC 

Z’OUOO’ 

0U2622 

OF bb 

0060 

DR] 

VE1 

DC 

Z’OOBO’ 

002 6 2 3 

0Fb7 

0100 

DR] 

l VE2 

DC 

Z’OlOO’ 

Ou2b24 

OF bb 

0160 

DR] 

VE3 

DC 

Z’OibO* 

002b25 

OFbV 

0001 

DXFN 

RESV 

4,1 

002626 

OFbo 

0000 

DXRN 

RtSV 

4,0 

002627 

OF Cl 

0000 

ERFL 

RESV 

1*0 

002626 

0FC2 

0000 

FLAG 

RESV 

1*0 

002629 

OF C3 

0000 

GOFLAG 

RESV 

1*0 

002630 

CFC4 

0000 

IDEN 

RESV 

1*0 

002631 

0FL5 

0000 

IPFL 

RESV 

1*0 

002632 

GFC6 

0000 

JJPT 

RESV 

SAF, 0 

002633 

0 F C 7 

0000 

KKPT 

RlSV 

SAF, 0 

002634 

OF Cb 

605C 

LFCR 

DC 

Z * 8 0 5 C ’ 

002b35 

OF C9 

0400 

LENGTH 

DC 

1024 

002636 

OF CA 

0000 

LNGAD 

RESV 

SAF*2 * 0 

002637 

OFCC 

2020 2424 



DC 

* *$» i 

002636 

OF GE 

0000 

LPCNT 

RESV 

1*0 

002639 

OFCF 

0000 

LPCUR 

RESV 

1*0 

002640 

OF DO 

0000 

NULL 

* DC 

0 

002641 

0 FD1 

003C 

RTCH2 

DC 

60 

002b42 

OF 02 

0000 

SECAD 

RESV 

1*0 

0o2b43 

OF 03 

003F 

SECTRK 

RESv 

1*63 

002644 

0 F 04 

0000 

TASK 

RESV 

1*0 


/******************************************************************I#***# 

* 

* CONSTANTS* MESSAGES, TABLES, BUFFERS, ETC. 

* 

************************************************************************ 

* CONSTANTS, bUFF lRS 

* 

AVERAGE time 
ASCII BUFFER 

DRIVE NUMBER 
CURRENT CYL AuDRESs 
MAX CYL ADDR 

ID’S OF DEVlCtS FOUND 

CURRENTLY SELECTED UNIT (FROM "DRIVEO" ETC.) 


HEX CYLINDER NUMBER FOR CURRENT DRIVE (CW1) 
HEX SECTOR NUMBER FOR CURRENT DRIVE <Cw2) 

diagnostic error Flag 

GENERAL PURPOSE FLAG 
IF SET* BYPASo "START" 

ID CODE 

INHIBIT PRINT FLAG 
WRITE BUFFER POINTfR 
read BUFFER PuINTEr 
CRLF FOR ZVS 

LENGTH^!WORDS> OF WRITE/READ BUFFERS 

LONG ADDRESS ASCII 

OF MESSAGE 

LOOPING COUNTlR 

CURRENT LOOPING COuNTFR 

default rtc frequency 

CURRENT SECTOR ADDr 
NUMBER OF SECTORS PFR TkACK 

CONTEXT SAVE AREA 
FIRST STATUS WORD 
SECOND STATUS WORD 


'O' 


END 


SAVE-1 

STATl 

STAT2 

TEMPA 

TEMPO 

TEMPC 

TEMPD 

TEST 

TMFWD 

TMREV 

TMLPA 

TMLPB 

TRKAD 

TRKMX 

VRBL 

VRBLZ 

WORSC 


RtSV 

RESV 

RESV 

RESV 

RESV 

RESV 

RESV 

RESV 

RESV 

RESV 

RESV 

RtSV 

RtSv 

RESV 

RESV 

DC 

DC 


16*iAF,0 
1*0 
1,0 
1*0 
1*0 
1 ,0 
1*0 
1*0 
1*0 
1*0 
1 *o 
1*0 
1*0 
1*0 
3*0 
»$$* 


TEST NUMBER 
FwD seek time 
REV seek time 
MAJOR TIME LOUP 
MINOR TIME LOuP 
CURRENT TRK AuDR 
MAX TRACK ADDk 
VARIABLE CONVERSION BUFFER 

OF Mfc 


END 


MESSAGt FROM VRBL 


Z*Eb6DB6DBl6EB6DB6Dbl6• WORST CASE PATTERN 


X-FFFF DC 
ZVSTAT RESV 


002667 






I FtV 

002666 

OFFD 

5340 

4453 

322C 

MSNAME 

TEXT 

0U2b71 

1000 

2052 

4556 

2043 

SKIP2 

TEXT 


1003 

2C20 

5354 

4F52 





414 7 

4520 

4D4F 





4455 

4C4 5 

2054 





2644 

2C20 

4645 





4220 

3138 

2C31 





3937 

3624 




002674 

1014 

434F 

5059 

5249 

CPYRIT 

TEXT 


1017 

4746 

5420 

3139 





3737 

2042 

5920 





484 F 

4E45 

5957 





454C 

4C20 

494E 





464 F 

524D 

4154 





494F 

4E20 

5359 





5354 

454D 

532C 





2049 

4E43 

2E00 



002673 





*- - - 

— _ . 

002674 

102F 

2020 

2020 

2020 

MSCYNO 

TEXT 


1032 

2020 

4359 

4C20 





4E4F 

2E20 

2024 



002675 

1036 

2020 

2020 

2020 

M50VNQ 

TEXT 


103b 

2020 

4452 

4956 





4520 

2024 

4E4F 

2E20 



0u2b76 

1042 

2020 

2020 

2400 

MSBtNK 

TEXT 

002677 

1045 

4649 

524D 

5741 

MSFWRV 

TEXT 


1046 

5245 

2052 

4556 





2E20 

2024 




00267b 

1040 

4F42 

5345 

5256 

MSIND 

TEXT 


1050 

4520 

5448 

4520 





5354 

4152 

5420 





494t 

4449 

4341 





544 F 

5220 

4F4E 





2054 

4845 

2044 





4556 

4943 

4524 



002679 

1062 

4946 

2049 

4C4C 

MSIND1 

TEXT 


1065 

5540 

494E 

4154 





4544 

2C20 

5052 





4553 

5320 

5354 





4152 

5420 

5357 





4954 

4E44 

4346 

2041 



00268U 

1075 

ODOA 




TEXT 

002681 

1076 

2020 

2020 

2045 


TEXT 


1079 

4E54 

4552 

2028 




5929 

2041 

5420 





434F 

4520 

4E53 

4F4C 




Z’FFFF’ 

_ . 1,0 RETURNED STATUS FOR ZV$ ROUTINES 

************************************************************************ 

* MESSAGES 

* 

$AF.» SK I P1 
» SMDS2,* 

• REV C, STORAGE MODULE T6D* FEB 16,1978$’ 


CPYRIT TEXT ’COPYRIGHT 1977 BY HONEYWELL INFORMATION SYSTEMS* INC.’ 




CYL NO. S’ 
DRIVE NO. S’ 


S* BLANKS 


MS1NDI TEXT ’IF ILLUMINATED, PRESS START SWITCH AND* 


ENTER (Y) AT CONSOLE • 


S R sfe[ E 


.0 




TilLh Sfvib52,'ktV C», STORAGE MUD UEE TlrD, Fto 16, 1978 


PAGE 35 



00268 c 

1063 

ODOA 

2024 



TEXT 

0O2tt8i 

1 06 3 

4946 

2 04E 

4F54 

MS1ND2 

TLXT 


1068 

2049 

4C4C 

554D 





a94l 

4154 

4544 





cE45 

4E54 

a552 





2028 

4E2 9 

2041 





5420 

434F 

4E53 





A F4C 

4520 




00268A 

1099 

ODOA 

2024 



TEXT 

0 U2 6 8 5 

i 09d 

4941 

5354 

414C 

MSILP 

I EXT 


I09t 

4C20 

4C4F 

4749 





4320 

2400 

504C 

5 5 a7 



002686 

1 0 A 5 

2020 

4D5 3 

2041 

MSkTM 

TEXT 


1 0 Ab 

5645 

2 L20 

5345 





454b 

2054 

494D 





4520 

2400 




002867 

IOdO 

454l 

5445 

5220 

mslct 

TEXT 


1 Ui33 

4C4F 

4F50 

2043 





4F55 

AE54 

2020 





2020 

2020 

2400 



0 UZ 8 6 6 

lObL 

4C4F 

4F50 

2024 

MSLP 

TEXT 

OU2b8V 

1 ObF 

4D49 

5353 

494E 

MSMRT 

TEXT 


10C2 

4720 

5245 

534F 





5554 

4345 

2054 





5241 

5020 

2400 



002b90 

lOLb 

2020 

4D53 

2U4D 

MSMXF 

TEXT 


1 oct 

4158 

2E20 

4657 





4420 

2054 

494D 





4520 

2400 




00 2 o 9 1 

1006 

2020 

4D53 

204D 

msmxr 

TEXT 


10D9 

4158 

2 L20 

5245 





5620 

2054 

494D 





4520 

2400 




002o9^ 

1 OL 1 

c020 

202 U 

2020 

MSbVID 

text 


lOEA 

2044 

45 56 

4943 





a520 

a94a 

2400 



002698 

10EA 

5245 

504C 

5920 

MSDONE 

TEXT 


iOLO 

2659 

2920 

5 748 





454L 

2044 

4F4E 





4520 

2020 

2024 



0 U289A 

1 OF 6 

45 AE 

A4 2 0 

5426 

* MSETD 

TEXT 


10 F 9 

4420 

524F 

5554 





494t 

a520 

2400 



0u2b95 

1 OF F 

5052 

4F54 

4543 

MSP SI 

TEXT 


110 c 

5420 

5357 

4954 





4346 

204C 

4954 





2020 

2400 

3F2 0 

2024 



002696 

HOC 

5245 

5350 

4F4E 

MSPS1A 

TEXT 


11 OF 

4420 

2859 

2920 





4F52 

2028 

4E29 





2024 

2400 




002697 

1117 

444 5 

5052 

4553 

MSPS2 

TEXT 


1 1 1A 

5320 

5052 

4F54 





4543 

5420 

5357 





4954 

4348 

2024 



00269b 

1123 

2020 

2020 

2020 

MSSCNO 

TEXT 


112 o 

• 2020 

5345 

4320 





4E4F 

2400 

2E20 

2020 



002899 

1120 

4445 

5052 

4553 

MSSTR 

TEXT 


1130 

5320 

5354 

4152 





5420 

5357 

4954 





4346 

2024 




002900 

113b 

4552 

524F 

5220 

MSTDER 

TEXT 


113b 

4449 

4354 

494F 





4E41 

5259 

2045 





4E54 

5259 

2400 



002901 

11A4 

2020 

2020 

2020 

MS IKNO 

TEXT 


1147 

2020 

5452 

4B20 





4E4F 

2400 

2E20 

2020 



0U290c 

114E 

5749 

5448 

494E 

MSTIME 

TEXT 


1151 

2031 

3520 

5345 





4353 

2L20 

2400 



0U2903 

1157 

0000 



MSDICT 

RESV 

00290 a 

1156 

5245 

4D4F 

5645 

MSRLP 

TEXT 


115b 

204C 

4 F" 4 7 

4943 





2050 

2400 

4C55 

4720 



002905 

1162 

0000 



MSTE 

RESV 

002906 

1163 

2020 

5445 

5354 

MSTEF 

TEXT 


1166 

2046 

4149 

4C45 





4420 

2 A2A 

2 A2A 





2 A2A 
2024 

2 A2A 

2A2 A 



002907 

1170 

2020 

5445 

5354 

MSTEP 

TEXT 


1173 

2050 

4153 

5345 





4420 

2400 




002906 

1176 

2020 

5445 

5354 

MSTBP 

TEXT 


11 7b 

2042 

5950 

4153 





5345 

4420 

2400 



002909 

1 lbi 

5354 

4152 

5420 

MSTEST 

TEXT 


1164 

5445 

5354 

2400 



0029 lu 

1187 

2054 

4940 

4552 

MSTMOF 

TEXT 


116A 

204F 

5645 

5246 





4C4F 

5720 

2400 



002911 

1190 

2020 

574F 

5244 

MSWORD 

TEXT 


1193 

2400 





002 91 £ 

1194 

4348 

414E 

4E45 

MSCHAN 

Text 


119 7 

4C24 





002913 

1198 

2020 

4953 

2020 

MS 1S 

TEXT 


119d 

2400 




00291A 

119C 

4E4P 

2044 

4556 

MSND 

TEXT 


119F 

4943 

4520 

5448 





4953 

2043 

4841 





4E4E 

454C 

2024 



002915 

11 A8 

5245 

4749 

5354 

MSREGS 

TEXT 


11 Ab 

4552 

2044 

554D 





503A 

2424 




002916 

1 lbO 

504F 

5745 

5220 

MSRTC 

TEXT 


11B3 

4652 

4551 

2C20 




Z•ODOA •« * $• CRLF 
'IF (MOT ILLUMINATED,ENTER (N) AT CuNSOLf • 

Z•ObOA•,• $• CRLF 

• INSTALL LOGIC PLUGS* 

• MS AvE* SEEK TIME $• 

•ENIER LOOP COUNT $• 

'LOOP $• 

•MIbSING RESOJRCE TRAP $• 

• MS MAX. FWD TIME S* 

• MS MAX. REv TIME $• 

• DEVICE IDS' 

•REPLY (Y) WHEN DONE S' 

•ENu TOD ROUTINE $' 

•PROTECT SWITCH LIT ? $$• 

•RESPOND (Y) OR <N) $$• 

•DEPRESS PROTECT SWITCH $• 

• SEC NO. $» 

•DEPRESS START SWITCH $• 

•ERROR DICTIONARY ENTRYS' 

• TRK NO. S* 

•WITHIN 15 SECS. $• 

1,0 

•REMOVE LOGIC PLUG $* 

1,0 

• TEST FAILED ********** $• 

• TEST PASSED $* 

• TEST BYPASSED $• 

•START TESTS* 

• TIMER OVERFLOW $• 

• WORDS' 

•CHANNELS* 

• IS S» 

•NO DEVICE THIS CHANNEL $* 

•REGISTER DUMP;$$» 

•POwER FREQ, HZ$ f 
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00*917 

0029 1 b 
0U2919 

00292O 

002921 

002924 


002923 
002924 
002925 
0U2926 
002927 
06292b 
002929 
002930 
0u29 31 
002932 
002933 
002934 
002933 
002936 
002937 
00293d 
002939 
002940 
0U2941 
002944 
0O2943 
002944 
002943 
002946 
002947 
00294b 
002949 
002930 
002951 
002954 
002933 
002954 
002953 
002956 
002957 
00295b 
002959 
002960 
002961 
002964 
002963 
002964 
002963 
002966 
002967 
00296b 
002969 
002970 
002971 
00*972 
002973 
002974 


Ilbb 

libb 

5243 

4235 

4444 

4558 

2400 

4144 

4646 

5220 

293A 

2020 

2041 

2848 

2020 

MSRBUF 

TEXT 

•READ BUFF ADDR (HEX); 

$* 

11C3 

11C8 

5245 

5424 

5354 

4152 

MSRSTR 

TEXT 

•RESTARTS* 


11C9 

ncc 

5752 

4255 

4444 

4558 

2400 

4954 
4646 
5220 
293 A 

4520 

2041 

2848 

2020 

MSWBUF 

TtXT 

•WRITE BUFF ADDR (HEX); 

$* 

11D6 

11D9 

2020 

2400 

5441 

4720 

MSTAG 

TEXT 

• TAG $* 


UDA 

HDD 

2C20 

2024 

2053 

4220 

MSSB 

TEXT 

•* SB $* 


11 Dl 
lit! 

4F4b 

5752 

3F20 

2054 

4954 

2024 

4F20 

4520 

MSWRT TEXT *0K TO WRITE ? S* 

*#**#*************####*##*#»***************************************##*** 

* LIST OF TASK WORDS (10 <OTTASK) 

* 


Utfa 
1117 
lltb 
11E9 
11EA 
11 Ed 
11 EC 
11 tl> 
11 EL 
UtF 
11 Fo 
11 F1 
11F * 


11F 3 

11F 4 


0000 

0100 

booo 

8100 

8200 

8300 

8400 

C000 

C800 

DOOO 

2000 

1000 

0800 


8000 

4000 


00*984 
002983 
004986 
002987 
00298t> 
002989 
002990 
002991 
002992 
002993 
002994 
002993 
00*99o 
002997 
002998 
002999 
003000 
003001 
00300.C 
003003 
003004 
003O03 
Oo3oOo 
0 0 3 o 0 7 
00300b 
003009 
003ulu 
003011 
003014 
003013 
003014 
003o13 


1210 

1211 

1212 

1213 

1*14 

1213 


1216 
1217 
1*18 
1219 
1214 
12 1 d 


0000 

0000 

0000 

0000 

0000 

4000 


0000 

0000 

0000 

0000 

0000 

4000 


RECAl 

SEEK 

FMRW 

RWD 

DFMRW 

DRwD 

FRIOW 

WRPAR 

SZRL 

TC10 

ASb 

ssb 

ARB 


DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 


2 * 0000 * 
2 * 0100 * 
2*8000* 
2*8100* 
2*8200* 
2 * 8300 * 
*•8400* 
2 • COOO» 
2 * CbOO * 
2 * DOOO * 
2 * 2000 * 
2 * 1000 * 
2 * 0800 * 


RECALIBRATE 

SEEK 

FORMAT READ OR WRlTF 
READ OR WRITE DATA 
DIAGNOSTIC FORMAT RFAD OR WRITE 
DIAGNOSTIC REaD OR WRITE DATA 
FORMAT READ lu OR FORMAT WRITE 


11F5 

1200 

CHAN 

DC 

2*1200* 

11 F 6 

1209 

IOREAD 

DC 

2*1209* 

11F 7 

1249 

IOWRIT 

DC 

2*1249* 

1 lFb 

120F 

OTOFRG 

DC 

2*120F* 

11F 9 

1211 

OTCONF 

DC 

2*1211* 

11FA 

1213 

0TC0N2 

DC 

2*1213* 

ilFb 

1201 

OTCONT 

DC 

2*1201* 

11FC 

1203 

OTRUPT 

DC 

2*1203* 

liFD 

1207 

OTTASK 

DC 

2*1207* 

11 Ft 

1210 

INCONF 

DC 

2*1210* 

1 IFF 

1212 

INC0N2 

DC 

2*1212* 

1200 

123C 

INFWRV 

DC 

2*123C* 

1201 

1226 

INIDEN 

DC 

2*1226* 

1202 

120C 

INRANG 

DC 

Z*120C* 

1203 

1202 

INRUPT 

DC 

2*1202* 

1204 

1218 

INSTW1 

DC 

2*1218* 

1205 

12 1A 

INSTW2 

DC 

2*121A* 

1206 

120A 

INMMA 

DC 

2 *12QA* 

1207 

1206 

INMBA 

DC 

2*1208* 

120b 

120E 

inufrg 

DC 

2 * 120E • 

1209 

1206 

INTASK 

DC 

2*1206* 


120A 

CHAN2 

* 

tuu 

$ 


002973 

60297b 

U u 2 9 7 7 

120A 

0000 

* LEVEL 5 INIERRUPT S/ 

* 

SA3TL RESv $AF*0 

00297b 

1206 

0000 

SA5DV 

RESV 

1*0 

002979 

120C 

0000 

SA5MI 

DC 

0 

00298O 

120D 

0000 

SA5M2 

DC 

0 

002981 

120E 

0000 

SA5P 

RESV 

SAF*0 

00298L 

12 OF 

+000 

SA5S 

DC 

2*4000* 

002983 

~ 


* 





* TRAP 

SAVE 

AREA 1 

12 1C 

0000 

TSAI 

RESv 

$AF * 0 

1210 

0000 

TSA1I 

RESV 

1*0 

12 1E 

0000 

TSA1R3 

RESV 

1*0 

12 IF 

0000 

T SAIF 

RESV 

1*0 

1226 

0000 

TSA12 

RESV 

1*0 

1221 

0000 

TSA1EA 

RLSV 

$AF,0 

1 2 2 L 

0000 

TSA 1P 

RESV 

$AF * 0 

1223 

0000 

TSAlb3 

* 

RESV 

SAF * 0 



* TRAP 

* 

Save 

AREA 2 

1224 

0000 

TSA2 

RESv 

SAF *0 


WRAPAROUND 
SEIZE OR RELEASE 
TAG CODE IN Or OUT 
AUTOMATIC SEEK BIT 
SECTOR SIZE BIT 
AUTOMATIC RPS BIT 

************************************************************************ 

* LIST OF CONTROL WORDS (10 <STOPIO*<OTCGNT) 

* 

INZBDC DC 2*8000* INITIALIZE MSC* DO qlT ON 4 PORTS OF MSC 

STOPIQ DC 2*4000* RESET BSY* RUPT IF FNB» STOP DMA (AFFECTS 1 P 

a*********************************************************************** 

* CHANNEL CONSTANTS 

* 

DEFAULT CHAN ADDRESS 

IOLD READ 
IOLD WRITE 
OUTPUT OFFSET RANGE 

OUTPUT CONFIGURATION WORD 1 
OUTPUT CONFIGURATION WORD 2 
OUTPUT CONTROL WORD 
OUTPUT INTERRUPT CONTROL 
OUTPUT TASK WORD 

NPUT CONFIGURATION WORD 1 
NPUT CONFIGURATION WORD 2 
NPUT FIRMWARt REV 
NPUT ID CODE 
NPUT RANGE 

nput control 

NPUT STATUS wQRD i 
NPUT STATUS wORD z 
NPUT MEMORY mODULf ADDRESS 
NPUT MEMORY oYTE ADDRESS 
NPUT OFFSET RANGE 
NPUT TASK WORD 

END OF CHANNEL WORDS 

*************************#********************************************** 

' ~ ' .‘ “ LEVEL) 

TSA LINK 
DEVICE 
MASK 1 
MASK 2 
P REG 
PR IV BIT 

* level io Interrupt save area (device interrupt lvl* w hfn enabled) 

SAIOTL KESv $AF*0 TSA LINK 

SA10DV RLSV 1»0 DEVICE 

SA10M1 DC 0 MASK 1 

SA10M2 DC 0 MASK 2 

SA10P RLSV *AF*0 P REG 

SA10S DC 2*4000* PRIV blT 

* 

* LEVEL 15 INTERRUPT SAVE AREA (NORMAL RUNNING LtVEL) 

SAI5TL RESv SAF,0 TSA LINK 

SA15DV KESV 1*0 DEVICE 

SA15M1 DC 0 MASK 1 

SA15M2 DC 0 MASK 2 

SA15P RESV SAF,Q P REG 

SA15S DC 2*4000* PRIV BlT 


TSA LINK 
I REGISTER 
R3 
F 
Z 

EA 

B3 


\./ 7 


TSA LINK 
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title : 

SMDS2*< 

'REV C* 

00301b 

1225 

0000 

0 0 3 o 17 

1226 

0000 

003016 

1227 

0000 

003019 

1226 

0000 

003020 

1229 

0000 

003021 

122A 

0000 

003022 

122 o 

0000 

003023 



003024 

122 C 

0100 


OOOO EkR COUNT 
TITLl 6 MLS2*' 
b03 i>A 


TSA21 RESV 
TSA2R3 RESV 
TSA2F RESV 
TSA2Z RESV 
TSA2EA RESV 
TSA2P RESV 


LMD 


197o 

PAGE 

i*o 

I register 

1*0 

R3 

1*0 

F 

1*0 

Z 

$AF *0 

EA 

$AF*0 

P 

$AF *0 

B3 


37 
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1372C 
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1204B 
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12486 

1252B 

1254B 
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1260b 
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1267B 

12716 

12756 
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1294C 

1295B 
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1300b 

1305B 

13136 

13156 
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1329b 
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1355B 
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1357B 
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13936 
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14116 
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1440B 
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1446b 
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14526 
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15776 
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1586B 

159 IB 

15956 
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1601B 

1629b 

16316 

16436 

16448 

1645B 

16476 

1653B 

1655B 

1657B 



1663b 

1666b 

1 7228 

17246 

17566 

17586 

17736 

1775B 

1780B 

1783B 



17876 

1791b 

17946 

17986 

1800B 

1812B 

18156 

1822B 

1823b 

1824B 



18356 

1837b 

16406 

18426 

16466 

18626 

1864B 

1868B 

18706 

1873B 



1677b 

1879b 

18618 

1885b 

18676 

18896 

189 IB 

1899B 

1903B 

1907B 



19106 

1917B 

19196 

19246 

19296 

19346 

1940B 

1942B 

1946B 

1948B 



19606 

1954b 

19616 

19696 

1973B 

1975B 

19776 

198 IB 

1983B 

1985B 
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1995b 

19976 

20206 

2026B 

20 326 

2097C 

2098B 

2 iOOB 

2106B 



21106 

2112b 

21146 

21166 

2118 

2119B 

2135 

2138C 

21416 

2142 
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21546 
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2171 
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3C 
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1181b 

1264B 

1310B 

1384C 

1450B 

15386 

158 IB 



1665C 

1696b 

1732B 

1786b 

1834C 

1876B 

1933B 

19806 

2140B 

2167B 



21626 

2218B 

2234b 

22616 

23316 

2354B 

2373B 

2397B 

26096 

2667B 

76 3 

SC 











771 

3C 
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3C 
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3C 
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SC 

667 


916 

sc 

947 


969 

sC 

1U27 

aC 

1 U39 

sc 

10/3 

sC 

1143 

*C 

1164 

sc 

126 7 

sc 

1313 

SC 

13 6 6 


1456 

*c 

1549 

SC 

1563 

*c 

1669 

sc 

169 5 

*C 

1731 

sc 

1769 


1838 

s>C 

18 75 

sc 

1936 

sC 

1967 

sC 

2142 

SC 

2169 

SC 

2 1 64 

sC 

2 2 1 u 

*C 

223 7 

SC 

2267 

SC 

2321 

sC 

2344 

sc 

2367 

sc 

2402 

SC 

2611 

sc 

2669 

sc. 

617 

sD 

856 

*D 

892 

sD 

945 

sD 

943 

sD 

993 

*D 

1055 

sD 

107 7 

SD 

1151 

sD 

1192 

SD 

12 77 

SD 

1296 

sD 

1315 

SD 

1395 

sD 

1465 

SD 

1553 

SD 

1 5o6 

sD 

1697 

SD 

1740 

sD 

17 94 

sD 

1642 

*D 

1681 

sD 

1694 

*D 

1921 


1942 

SD 

1977 

$D 

1990 

SD 

1999 

sD 

2410 

sD 

2604 

SD 

631 

SE 

862 

*E 

' 902 

sE 

927 

s’E 

997 

sE 

1066 

*E 

1155 

sE 

1261 

sE 

1302 

SE 

1317 

sE 

1323 

SE 

1401 

3)E 

14 72 

sE 

1554 

SE 

1589 

*£ 

1611 

sE 

1742 

SE 

1800 

SE 

1848 

SE 

1909 

SE 

1952 

sE 

1993 

*E 

1995 

*E 

2212 

sE 

8 73 

SF 

929 

4>F 

1090 

SF 

1165 

SF 

1206 

SF 

1331 

sF 

1414 

SF 

1483 

SF 

1568 

SF 

1591 

SF 

1618 

SF 

1750 

SF 

1779 

SF 

1790 

SF 

1852 

sF 

1863 

SF 

1912 

SF 

1957 

SF 


814b 853b 889B 921b 9406 9906 1052B 10756 1148b 1189B 
1274b 1284C 18116 1312b 1391b 14626 15506 15846 1698b I 839 B 
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13206 13986 1466C 1552b 
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11526 
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1279B 

1748B 


12996 
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1304B 

I 845 B 


870b 9326 10886 11626 1207B 1324B 

16126 17456 1781 1792 lo50B 1858 


1410B 

1913B 


1475B 

1953C 


1565B 1588 

2022 
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2024 

*F 




1137 

i>G 

11 356 

1415 

19166 

1417 

$G 




1913 

*G 




1964 

3G 




1136 


11356 

14026 


14U9 

3>H 




1917 





1216 

iJ 

12136 



1222 

*K 

12196 

- 



3R1 

4 1 6 

419 

442 



482 

483 

488C 



572 

583 

602 



620 

622 

o23 



648 

649 

653 



676 

679C 

716 



1076 

1077C 

1086 



1260 

1281C 

1282 



1335 

1336 

1339b 



1436 

1439C 

1465 



1642C 

1649 

1650 



16 7 9 C 

1680C 

I 06 IC 



1747 

1750C 

1771 



1833 

1834C 

1848 



1 86 1 C 

1874 

1675 



1912 

1914 

1915 



1937 

1938 

1966 



2026 

2029C 

2030 



2326 

2343 

2346B 



24736 

2482 

2463C 



2660C 

2662 

2 7 2 6 C 



2792 

2793 

2800b 


SbR 2 

448 

449C 

483 



649 

923 

926 



1533 

1334C 

1589 



1992 

1993 

2003C 



2445C 

2468 

2469B 



2729C 

2793 

2 794C 


S.R3 

392C 

563 

641 



186 1C 

1909 

1987 



2769 

2 790 



j>R4 

689 

690 

691C 



20236 

2128C 

2130 



2171 

2173C 

2199 



22 31C 

2256 

2257 



2389 

2392C 

2398 



2462C 

24706 

2474 



2534 

25336 

2393 


, 

2624 

2623 

2o26 



2723C 

2 7 2 4 C 

2 730b 


iR3 

463C 

486 

468C 



1155b 

126 7C 

1302 



1720 

1721C 

1 729 



2493 

2494 

2493 



266 1 C 

26846 

2 722 


$R 6 

40 1C 

404 

403 



1435C 

15 11C 

1392 



1622 

1625 

162 7 



2309 

2444C 

2449 



26276 

2629C 

2o32 



2729C 

2789 

2 797C 


*R 7 

402 

403 

40 7C 



1674 

16 9 2 C 

1 o9 7 



244 5C 

2447 

2^48 



2 601 C 

2602C 

2624 



2791 

2798C 

2 799C 

2938 

ARb 




2936 

ASb 




2613 

ASCbF 

2013 

2016 

2018 

2612 

A V11 h 

1422 

1594C 

lo 02 

2813 

ul TL 

53 1 C 

358 

363 



1826 

1857 

1909 

2422 

CDCH 

564b 

6426 


2429 

cDChb5 

2422C 

2426 


2947 

CHAIN. 

462 

463 


2972 

CHAIM2 

465 

2 764 


2672 

CPYRIT 




2773 

CRLF 

692b 

1421b 

1595b 

2778 

CRLT B3 

2 7 7 3 C 

2 I 75 


2816 

CYAb 

1263C 

1307 

1331 

2817 

C'Y At/FiX 

i me 

1335 


2 6 1 8 

u -1 

1171 

1206 

1376 

2819 

UEViO 

486C 



2930 

Ff’viK w 




2820 

oR I Vt 

2424C 

2 765 


2821 

OR IV EO 

463 

2423 


2822 

oRIVtl 




2623 

OR IVE2 




2624 

0R1VL3 




2931 

oR to 0 




2823 

i/XFN 

1826C 

2392C 

2 704 

2826 

oXRIN 

186 1 C 

2706 

2/90 

2627 

lrf l 

550C 

600C 

074C 



1349C 

1392 

1409 



2166 

2179 

2184 

2626 

FLAG 

549C 

570 

599C 



1346C 

1433C 

1 3 0 9 C 



2396 

2409 

2490 

2719 

r LbF 

1666b 

19546 

1961b 

2926 

FMK W 

1874 



2932 

F R 1 0 to 




2097 

FRKC 

1117b 

13566 

1644b 

2098 

r RRCa 




2116 

1 RRCb 

21056 



2121 

FRRCB5 

2097C 

2118 


2116 

FRRCC 

21036 



2319 

gETCY 

14436 

16226 


23o3 

gETSg 

1823b 



2342 

gET Ik 




2829 

gOF LAo 

394 

396 

457 

2333 

o T C Y b 3 

2319C 

2332 


2 37 7 

uT SCb5 

2365C 

2374 


2338 

GT(Kb3 

2342C 

2355 



1960C 


443 

444 

445C 

446C 

447C 

463 

466 

493b 

503 

505 

506C 

552 

553C 

569 

603C 

607 

608 

6096 

616 

617b 

618 

625 

626 

628 

629 

631 

632 

634C 

654 

658 

659 

660 

661 

675 

676C 

717C 

765 

766 

767 

958 

959C 

1073 

1089 

1090C 

1114 

1115C 

1237 

1238C 

1277 

1283C 

1 484C 

1307 

1310B 

13126 

1331 

1334C 

1353 

1354C 

1377 

1378 

1379 

1383 

1384C 

1466C 

1515 

1516C 
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769B 

6156 

8176 

629b 

83 IB 

848B 

8 5 OB 

6806 

890b 

900B 

902B 

9066 

916B 

967B 

99 IB 

995b 

997B 

1005b 

10l IB 

1 U53B 

1055b 

1063B 

1065B 

107 IB 

10 8 4B 

1163b 

1178b 

1182b 

1190B 

1200B 

1 2 1 4 B 

12 71B 

1275b 

1300B 

1313B 

1315b 

1321B 

1456B 

1463b 

1481b 

1488B 

1528b 

1543B 

1653B 

1663b 

1722B 

1724B 

17566 

1787B 

16 79b 

1869B 

1907B 

1919B 

1924b 

19 2 9 B 

1965b 

1997b 

2026B 

211 OB 

2114b 

2116B 


960B 

11 ibb 

1239b 

1355B 

1440B 

15176 

1U99B 

1140B 

1224b 

1340B 

1411B 

1424B 

2032b 

2219B 





645C 

646 

658 

682 

721 

727 

771 

784 

794 

801 

805 

Q , ~ 

6 46 

852 

658 

869 

884 

888 

920 

931 

939 

963 

967 

973 

993 

1003 

1009 

1020 

1023 

IO 31 

1059 

1069 

1082 

1095 

1123 

1130 

1171 

1176 

1180 

1188 

1198 

1206 

1*69 

1273 

1308 

1319 

1323 

1363 

1401 

1461 

I486 

1526 

1537 

1541 

1796 

1844 

1866 

1871 

1883 

18 9 7 

2102 

2104 

2108 

2133 

2307 

2308C 

2656 

2741 

2751 

2796C 



1469C 

1513 

2015 

2546 

2 551 

2623 

2009C 

2012 

2210 C 

2217 

2255 

2256 

959C 

11150 

1238C 

1354C 

14390 

151 6 C 

2169 

2230 





14 73B 

1559B 

1579B 

1837B 

19 0 3 B 


934B 

1027B 

1043B 

1078B 

109 IB 

1143B 

2267B 






2344 

2345 






2 751 

2752 





7 4 6 B 

14936 

1775B 

1780B 

179 IB 

181 58 

526C 

12410 

1372C 

1442C 

15190 

1821 C 

2464 

2501C 
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ZVSFiZ 

2015b 

2018b 

2 743b 

27476 

27516 

zVSIA 

2255B 





ZVSIO 

422B 

606b 

15316 

2321b 

2344B 

Z.VSIH 

462b 

615b 




z V SLR 

387 

398 




zVSPCH 

2782B 





ZVSGC 

42 lb 

461b 

5356 

6056 

6106 


2330B 

2343b 

23536 

2366b 

2 3 7 2 B 

ZVSKO 

393b 





i.VSSVi 

387 

- 




zVSSV2 

387 





zV si 

412b 

4136 

416b 

4176 

4216 


559b 

576b 

5786 

6056 

6106 


744b 

745b 

7 7 56 

7766 

9086 


1600B 

1603B 

17746 

17786 

17796 


201 lb 

20146 

2016 b 

20176 

20196 


2214b 

2235B 

2239b 

22416 

2262B 


2372B 

2438b 

2o426 

27426 

27466 

ZVslL 

412b 

416b 

5016 

50 76 

557B 


743b 

7446 

7456 

7756 

9086 


1789B 

2774b 

1790B 

18136 

18556 

20116 

zVsTO 

I422B 

1596b 

15996 

16026 

18566 

*.VsT H 

508b 

558b 

5776 

6366 

14226 

zVSTHZ 

2156b 

21756 

22326 




2so3 4.VST AT 2255 
622 LAdElS 
2669 REFERENCES 
3024 kELOKDS 
0 U FLAGS 
1 H ELmGS 
313 N FLAGS 

6 CRuSS RlF VERSION L - 24 SEPT * 19 f6 
kS LINKER VERSION S.00 02/21/78 1203.5 EST TUE 

LINK NAP FOR SHUS2 
START 0100 

LOVv 0000 

HIGH iA6l 

CURRENT 1A62 

*LOC OEFS 

ZhCUMM 0000 

*shod2 oooo rev c 

ZhPFk oooo 

ZHlSA 0002 

ZHnTSa 0010 

ZHKTC1 0014 

ZHkTCL 0015 

ZhkTCL 0016 

zHwUTC 0017 

ZHNERC 00 IF 

ZHIaFd 0020 

ZHT HZ9 0063 

zHTH2b 0064 

ZHTH27 00b5 

ZHIHZb 0066 

ZHTH25 0067 

ZHTH24 0068 

Z h T H 2 3 Oob9 

ZhTH22 006A 

ZHIH21 0O6B 

ZHTH20 006C 

ZhTHl9 0060 

ZHTHib OObE 

ZHThi 7 006F 

zHHEHP 006 F 

ZHTrtio 0070 

zHLeRR 0070 

ZHTH15 0071 

ZHNKES 0071 

ZHTFilz 0072 

ZhPi v iEh 00 7 2 

z h T M1 3 0073 

zhH t>p 0073 

ZHTH12 00 74 

ZHfhli 0075 

Z.HTH10 0076 

ZHTH9 0077 

ZhThti 0078 

ZH1H7 0079 

z. H T H t> 007A 

ZHGvn 007A 

ZHTH5 007b 

ZhUP-N 007b 

ZHTH4 007C 

zhT H3 0070 

ZhSG~h 0070 

ZHTH2 007E 

Zh f KC 007E 

ZHTHI 007F 

ZhhCL 0 o 7 F 

z.hl5Az 0080 

ZhiVbS OobO 

zHTVbS OObO 

*zVST 122C REV. 5.0 

ZVSTC 1235 

ZV ST 122C 

ZVSGC 12a 9 

ZV SO 12 3E 

*ZVSiH 1250 

ZVSIO 1262 

ZVSlH 1250 

ZVS IAb 1267 

Z V S—c 12 7 F 

ZVS—3 1291 

*ZVS T H 12F6 

ZVsTh 12F6 

ZVSIO 13zb 

ZVS I Hz. 13 IE 

*ZVSF R 1346 

ZVsFR 1346 

Z V S FI 1368 

ZVSFS 13bb 

ZVSFRa 1398 


2367b 


6126 

6146 

1492B 

2262B 

2320B 

4616 

5016 

507B 

5356 

5>57B 

6126 

6146 

6356 

6376 

743B 

943B 

14236 

14926 

15306 

15 9 7B 

17896 

17906 

18136 

18146 

1855B 

20346 

21556 

2174B 

21836 

2188B 

23206 

27506 

2330B 

27746 

2343B 

23536 

2366B 

5596 

576B 

5786 

6356 

6376 

9436 

15306 

1774B 

17786 

1779B 

20346 

21556 

21746 

21886 

24386 

15966 

15996 

1602B 

18566 

20 i?B 



1 
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ZVM KA 

1399 

4Vi.bkK 

13bu 

L V it" KD 

i 39 A 

ZViubkh 

1397 

*ZVSi A 

139U 

L V ^ i A 

1391 

tVibAko 

1443 

ZV^Abt- 

14a5 

2Vi>—1 

1406 

ZVi>iAV 

lA 7 1 

*4Vi>L>kk 

147b 

ZVibkK 

14 7b 

*ZVi>F' U\ 

lAbF 

ZVibPCh 

146b 

*^Vl>C P 

1591 

zv$bH 

1 b9 1 

ZVi— a 

1 bb 1 

*AVi>hA 

1 bbU 

ZVi>h*. 

1 b L 7 

ZVihA 

1 bbU 

ZVi>hS 

lbC2 

*^Vi>hU 

1 bb 6 

ZVi»nu 

1 bb 6 

*tVi>HUv 

I 046 

Z V i. h b v\ 

lo26 

ZVii-iLK 

1 ob 7 

* 4 V it. i_ k 

loob 

4 V i> 1 A 

lo9b 

Z V $ t h 

loob 

ZVi>—u 

1 ooZ 

*4Vi>kU 

1 ouF 

ZVitkU 

16UF 

Z Vi-LK 

1 7 09 

ZViukb 

17Ub 

ZVibVZ 

1663 

ZVS.UTP 

1 7b4 

ZVkbVl 

1 6b3 

ZVibbVb 

167 3 

Z Vi>Ab 

1 ob 0 

zvnn 

1 ob 2 

ZVib I il> 

16 F 1 

Z Vit>Lb ^ 

10 b 9 

ZViTk 

1 6b b 

Z V i>kMk 

16b 6 

ZV i>31 1 

1 ob A 

4 V i> L> U 0 

lob 3 

4 V 3>ULl> 

1 ob U 

ZVi>kCb 

16 b t 

ZVS.KCL 

lobb 

ZVithSk 

1 702 

4Vit>Sl k 

1700 

ZVi> ukb 

17 04 

4VS. U 

1717 

4 V ihK 

1 70C 

ZVi.UA i 

1 ott 

4Vi>Nbi 

1 7b3 

ZVibHkb 

17 06 

tVihkb 

1707 

ZVi.bku 

1 706 

4 . V $ L k L 

1 7U9 

ZViHbO 

1 70 A 

ZV$ Cbi 

1 6b 6 

4V& — 6 

1 70F 

ZVikhu 

iotF 

4VS>foO 

17 0b 

H 1 b aUl/ 

i 7oA 

4V$kA^ 

16F7 

4V i>kD I 

16 AF 

4 V i> C T L 

1 o b A 

zVitbl 

1642 

4 V i> T 6 1 

1 6 Ob 

lM i>MUC 

1 6 CO 

ZVi>k99 

1 AbU 

LV&ISm 

1 7 12 

AVibUih 

1 70 U 

4Vi>4kU 

i 791 

Z'Vilubh 

1793 

*u(\*LIhK NluDuLb(b) 

ZVifclU 


ZVih4 


Z V i> T h 



ktv. 6*0 


ktv. o 

kbV. b • 0 

ktV. 6.0 





